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Vergleichen Sie die Preise - wir dürfen es nicht! 


CPC 464 mit grünem Monitor DM 699,- 


CPC 464 mit Color Monitor DM 1149,- 


CPC 664 mit grünem Monitor DM 1248,- 


Diskettenlaufwerk mit Controler DM 699,- 
Diskettenlaufwerk DM 539,- 


NLQ 401 Drucker DM 699,- 


Alle Preise zuzüglich DM 20,- Versandkosten pro Paket 
(Ausland 50,- DM) 
Versand nur bei schriftlicher Bestellung und gegen Vorausscheck 
Keine telefonischen Bestellungen 
Alle Preise einschließlich 14% Mehrwertsteuer 
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Vorwort/Impressum 


Liebe SCHNEIDER-aktiv Fans, 


Es tut sich was auf dem CPC Markt: Neue Grafik-Tableaus, Diskettenlaufwerke und 
Speichererweiterungen bestimmen die Scene: Unser Titelbild zeigt die neue 3,5" Floppy zum CPC. 
Alle großen Computerhersteller tendieren zum 3,5" Format. Wird die 3,5" Diskette die teure 3" 
Diskette ablösen? Hat das 3" Format noch Zukunft? Man munkelt bereits in Fachkreisen, über die 
Einstellung der der 3" Diskettenproduktion. Bereits heute gibt es 3" Disketten Engpässe: In 
Frankreich bekommt man kaum noch 10er Packs sondern bestenfalls ein oder zwei Stück und auch 
in Deutschland haben einige CPC-Händler Engpässe. Die Auswirkung in Frankreich: Der Preis für 
eine 3" Diskette schnellte von ca. 10,- DM auf über 20,- DM. Wir hoffen, daß diese Situation nicht 
bei uns eintritt? Peripheriehersteller denken voraus und liefern bereits heute einwandfrei arbeitende 
Diskettenstationen im gängigen 3,5" Format und im konventionellen 5,25 " Format. 


Auch die Speichererweiterungen haben sich vermehrt. Zu den in der Leserumfrage erfaßten 
Erweiterungen sind neue hinzugekommen: Eine 1IMB Karte für den CPC 6128 - ein 256K RAM- 
DISK-Modul (SILICON-DISK) für den CPC 464, 664 bezw. den CPC 6128 und ein 256K 
Speichererweiterungsmodul, das den CPC 464 dem CPC 6128 ähnlich macht und dem CPC 464 eine 
Gesamtspeicherkapazität von 320K verleiht. 


In dieser Ausgabe wird die Auswertung der ersten Leserumfrage "Speichererweiterungen I" 
veröffentlicht. Die Auswertung über die "Grafik-Programme I" haben wig für das nächste Heft 
zurückgestellt, da zum Redaktionsschluß noch zahlreiche Fragebögen eingingen. Zur Klarstellung: 
Namen, Anschrift und Unterschrift auf den Fragebögen dienen nur der Absicherung der Richtigkeit 
der Auswertung und werden nicht veröffentlicht. Unvollständig ausgefüllte Fragebogen werden nicht 
in die Auswertung einbezogen. 


Unser SCHNEIDER-aktiv ABO-Angebot für nur 48,- DM statt 60,- DM für 12 Ausgaben (nur 
Inland) bleibt auch in diesem Monat bestehen. Bereits bevor SCHNEIDER-aktiv im Handel ist, habt 
ihr das neueste Heft im Briefkasten. Postgebühren übernehmen wir. Das Bestellen ist bei uns ganz 
einfach: Schickt uns einen Scheck mit Anschrift und Vermerk: "SCHNEIDER-aktiv Abo ab 
nächster Ausgabe" 


Und das ist auch neu: Die SCHNEIDER-aktiv SOFT-BOX gibt es nun auch auf 3" Diskette und 
zwar ab SOFTBOX 2/86. 


Und nun viel Freude an der neuen SCHNEIDER-aktiv 


Euer SCHNEIDER-aktiv Team 
Postfach 1201 
8540 Schwabach 


IMPRESSUM: SCHNEIDER-aktiv erscheint im Verlag COMPUTER-aktiv - Inhaberin: Ursel Welsel. Anschrift des Verlages 
und der Redaktion: Verlag COMPUTER-aktiv, Postfach 1201, Frans Keim Straße 12, 8540 Schwabach. Tel. 09122/2882. 
Chefredakteur: Ursel Welsel (verantwortlich). Vertrieb: Verlagsunion, 6200 Wiesbaden. Druck: Mayer & Söhne KG, 8890 
Aichach. Es gilt: Anzeigen-Preisliste 10/85. Einselbesugspreis: DM 5,-/sfr 5,-/ÖS 43,-. Erscheinen: monatlich. Abonnement 12 
Ausgaben: Inland: DM 48,-/ Europas DM 90,- jeweils inkl. Porto und Verpackung. Abonnementbestellhinweis in diesem Heft. 
Alle Artikel, bei denen der Name des Verfasser am Ende des Artikels in Klammern () steht geben ausschließlich die Meinung 
eines nicht dem Verlag angehörigen Verfassers - nicht die Meinung des Verlages wieder. Für unverlangt eingesandte 
Manuskripte, Datenträger und Fotos keine Haftung des Verlages. Honorarsahlungen nach Vereinbarung. Honorarsahlungen für 
eingesandte Listungs beinhalten das Abdruckrecht und Nutsungsrecht im SOFT-BOX Programmservice des Verlages sowie den 
Übergang des Urheberrechts auf den Verlag. Das Urheberrecht am Verlagsprodukt hat der Verlag. Autoren und freie 
Mitarbeiter von SCHNEIDER-aktiv in alphabetischer Reihenfolge: Markus Adamski, Hartmut Adelsberger, Steffen Adomeit, 
Sascha Basler, Ulrich Becker, Heinrich Behrendt, Reinhard Bitter, Wolfgang Buldt, Klaus Werner Bues, Gerald Butterwege, 
Christian Eißner, Alwin Ertl, Hendrik Frensel, Benjamin Furch, Wilhelm Fähndrich, Berthold Freier, Hendrik Frenzel, Jens 
Gerhart, Thomas Gigge, Ralph Großmann, Markus Gebhard, Uwe Ganter, Hermann Groß, Andreas Guhr, Tassilo Hummel, 
Bruno Kesel, Heiner Kickermann, Martin Kotulla, Rüdiger Kronenberg, Herbert Langheim, Wolfgang Lemme, Udo Maass, Jan- 
Mirko Maczewski, Lothar Maluche, Hans Machat, Klaus Mehner, Heinrich Möller, Andreas Müller, Johannes Muschik, Olav 
Pankow, Rainer Pecksen, Stefan Ralf Petersen, Richard Rastetter, Robert Schaefer, Gert Seidel, Stefan Tröster, Dr. Thomas 
Tegeler und viele andere. 
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HARDWARE-NEUHEITEN 
- SPEICHER-ERWEITERUNGEN für den CPC 464 


- dk’tronics 64KB Speichermodul 
- dk’tronics 256KB Speichermodul 


_- RAM-FLOPPY SILICON-DISK für den CPC 464/664/6128 


- dk’tronics 256KB RAM-FLOPPY 464/664 
- dk’tronics 256KB RAM-FLOPPY 6128 


- Grafiktablett GRAFPAD II für den CPC 464/664/6128 
- ROM-KARTE 


SOFTWARE-NEUHEITEN 


- LOCKSMITH Kopierprogramm Kassette DM _ 58,-* 
- LOCKSMITH Kopierprogramm Disk 3" DM 78,-* 
- LOCKSMITH Kopierprogramm ROM DM 128,-* 


SOFTWARE im ROM 


- DISK-USER-UTILITIES DM 158,- 
- BASIC ERWEITERUNG DM 158,- 
- ASS/DISSASSEMBLER/MASCHINENMONITOR DM 158,- 
- TEXTPROGAMM DM 158,- 
- DATENBANK DM 158,- 
- LOCKSMITH Kopierprogramm* DM 158,- 


*Wir weisen ausdrücklich darauf hin, daß urheberrechtlich geschützte Programme nicht oder nur mit Genehmigung des 
Schutzberechtigten kopiert werden dürfen. 
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CPC 464 


664 _ 6128 


Der KARAJAN für den CPC 


HIGH-RES 
Grafpad 2 
Grafik-Tableau 


Jetzt endlich das Grafiktabletts für den CPC: 

Es ist das erste low-cost Tablett das Leistung 
und Haltbarkeit bietet wie sie für den Einsatz 
im Büro, der Industrie, beim Anwender und 


in der Schulung gefordert wird. Es ist klein, 


sauber konstruiert und zuverlässig. Keine Jus- 
tierung und keine Wartung ist nötig. Die 
Raumfahrt-Erfahrung in Digitalisierung der 
Weltfirma Ferranti ging in dieses Produkt ein, 
das nach 3-jähriger Entwicklungszeit nun 
auch den CPC-Usern zur Verfügung steht. 
Das Tablett verbindet in einem Gerät alle 
Vorzüge anderer Eingabegeräte und umfaßt 
eine Anwahl von Optionen z.B. zur Erstellung 
von Schaltplänen, Zeichnungen, Beschriftun- 
gen etc. Selbstverständlich lassen sich die er- 
stellten Zeichnungen abspeichern und wieder 
einladen. 


Und das sind die technischen Spezifikationen: 


AUFLÖSUNG: 1280 x 1024 Pixels 

WIEDERHOLGENAUIGKEIT: IPIXEL 

AUSGABE: 2000 KOORDINATEN- 
PUNKTEJ/SEK 

INTERFACE: PARALLEL 

ABMESSUNGEN: 350 X 260 X 12 mm 


Das Tablett wird mit einer Softwarekassette 
und einen Griffel mit Interface ausgeliefert 
und ersetzt den Joystick, den Touchpad, den 
Lightpen und sogar das Keyboard. Die Auflö- 
sung und Wiederholgenauigkeit ist weit besser 
als bei den derzeit auf dem Markt befind- 
lichen Light-Pens. Preis: ca. 280,- DM 


NEU: SPEICHER-KARTEN 
OHNE UMBAU 


dk’tronics 
64KB MEMORY EXTENSION 
256KB MEMORY EXTENSION 
(SPEICHERERWEITERUNG) 
für den CPC 464 
ZUM AUFSTECKEN 


Ohne Eingriff in den CPC 464 - einfach zum 
Aufstecken auf sind jetzt auch in Deutschland 
die dk'tronics 64KB und die 256KB Speicher- 
erweiterungen erhältlich. Nicht nur die Preise 
von ca. 200,- DM bezw. 400,- DM sondern 
vor allem das einfache Anstecken der form- 
schönen Module an den Userport der Konsole 
sind bestechend - einfacher geht es nun 
wirklich nicht. Die Speichererweiterungen 
machen den CPC 464 (mit Ausnahme der 
ROMS) zu einem CPC 6128 und verleihen 
dem CPC 464 eine Gesamtspeicherkapazität 
von 128KB bezw. 320 KB. Zur Speichererwei- 
terung wird eine Bankswitching-Software in 
Form von RSX-Befehlen mitgeliefert um den 
Speicherplatz zum Speichern von Bildschirm- 
inhalten, Windows, Arrays und Variablen zu 
nutzen. Mit der 250KB Erweiterung können 
16 volle 16KB Bildschirminhalte gespeichert 
werden. 


Die Module geben dem CPC 464 die gleiche 
Speicherkapazität wie sie der CPC 6128 auf- 
weist. Ferner sind 1 bezw. 4 Banks mit je 
64KB möglich. Mit diesen Speichererweite- 
rungen kann unter BASIC und CP/M plus, 
wie es zum CPC 6128 geliefert wird, gear- 
beitet werden. Eine extra Stomversorgung be- 
nötigen diese Speichererweiterungen nicht. 


NEU: FLOPPY ohne MECHANIC 


dk’tronics 
256KB SILICON DISC 
(RAM-DISK) 
für alle CPC 
als "Laufwerk" B und/oder C 


Mehrfach schneller und mit größerer Kapazi- 
tät als ein normales CPC-Diskettenlaufwerk 
arbeitet - ohne Mechanik - die neue 256KB 
RAM-DISK. Sie kann als Drive B und/oder 
Drive C betrieben werden. 


Die Daten werden auf diese RAM-DISK von 
einer normalen Diskette oder aus dem RAM 
übertragen wodurch Anwender-Software viel 
schneller Daten abarbeiten kann. Normale 
Disketten Komandos wie "load", Save”, "cat" 
etc. werden akzeptiert. Preis ca. 400,- DM. 
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SUPER TRANSFER-PROGRAMM 
LOCKSMITH 


LOCKSMITH ist ein TAPE auf DISK Trans- 
ferprogramm (Kopierprogramm) für den CPC 
464, 664 und 6128. Locksmith kopiert nicht 
nur von TAPE auf DISK sondern auch von 
DISK auf DISK und von DISK .auf TAPE. 
Die 18 Befehle dieses Programms beinhalten 
einen HELP-Befehl wie ihn die User benö- 
tigen. Mit Locksmith steht neben dem be- 
währten TRANSMAT nun ein weiteres gutes 
Kopierprogramm zur Verfügung. Preise: 
Kassette ca. 60,- DM - 3" Diskette ca. 80,- 
DM und im ROM |!!! ca. 130,- DM 


Hinweis der Redaktion und des Verlages: Wir 
weisen ausdrücklich darauf hin, daß die Ver- 
vielfältigung eines Programms für Datenver- 
arbeitung oder wesentlicher Teile davon stets 
nur mit Einwilligung des Berechtigten zulässig 
ist. 


Hinweis der Redaktion: 
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PROGRAMME in ROMS - 


Wir kennen Software auf Kassette und Disket- 
te. Nun gibt bereits die verschiedensten Pro- 
gramme in ROM-CHIPS - und es gibt auch 


schon die ROM-Karte, in die die ROM- ' 


CHIPS eingesetzt werden. Die Verwendung 
von Programmen in ROMS hat Vorteile: 


- sie sind seht schnell, da in Maschi- 
nensprache geschrieben 

- sie sind stets sofort verfügbar 

- Speicherplatz wird gespart 

- das Programm kann nicht so leicht zer- 
stört werden 


Die ROM-Karte befindet sich ebenfalls in 
einem Modulgehäuse, das extern an den CPC 
gesteckt wird. Der Bus ist durchgeführt, damit 
das Disketteninterface noch angeschlossen 
werden kann. Es ist Platz für 7 ROMS, wobei 
8K und 16K ROMS gemischt werden können. 
Auch hier ist keine externe Stromversorgung 
notwendig. 


Der Hersteller liefert folgende Programme im 
ROM: 


- MAILING-LIST (ADRESSEN) 

- DISK-USER-UTILITIES 

- BASIC ERWEITERUNG 

- ASSEMBLER/DISASSEMBLER und 
MASCHINENSPRACHMONITOR 

- TEXTPROGRAMM 


- DATENBANK 

- KALKULATION (in Kürze) 
- GRAFIK (in Kürze) 

- STATISTIK (in Kürze) 


Die Preise erwecken den Eindruck einer Ein- 
heitspreisgestaltung: sowohl die Hardware als 
die einzelnen Softwaremodule kosten alle das 
gleiche: ca 160,- DM/Stück. Trotzdem eine 
lohnende Anschaffung, wenn man den wohl 
einmaligen Bedienungskomfort haben will. 


Auch andere Softwarehersteller liefern bereits 
ihre Software im ROM. Einige Beispiele: 


- Light Pen Software von dk’tronics 

- Speech synthesiser Software von dk’ 
tronics 

- Toolkit Basicerweiterung von Besbi 

- Locksmith Transferprogramm 
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Am Ball bleiben... 
... mit einem | 


KIETZARO SÜ 
A 


O Es ist mühselig, der neuesten SCHNEIDER-aktiv am Kiosk nachzulaufen 


O Es ist ärgerlich, wenn SCHNEIDER-aktiv schon vergriffen ist. 


O Da gibt es nur eines: SCHNEIDER-aktiv sofort abonnieren. 


12 Ausgaben für nur 48,- DM frei Haus 


ABO-BEDINGUNGEN: Ihr bestellt 12 Ausgaben von SCHNEIDER-aktiv. Die Kosten für Vertrieb, 
Zustellung und die Mehrwertsteuer sind im Preis von 48,- DM enthalten. Wenn Ihr das Abonnement nicht spätestens 
4 Wochen vor Ablauf schriftlich kündigt, verlängert es sich automatisch um 12 Ausgaben. Dieser Preis gilt nur für das 
Bundesgebiet und für West-Berlin. Der Abonnementpreis für das europäische Ausland beträgt 90,- DM. 


IHR KÖNNT WIDERRUFEN: Euere Abo-Bestellung könnt Ihr innerhalb von 8 Tagen schriftlich widerrufen. 


ABO-BESTELLUNG GANZ EINFACH: Schickt uns einen Scheck über den ABO-Betrag. 
Vergeßt nicht Euere vollständige Anschrift anzugeben. Auf den Scheck schreibt Ihr einfach: 


"SCHNEIDER-aktiv Abo ab nächster Ausgabe” 
und schickt den Scheck an: 
Verlag COMPUTER-aktiv 


Postfach 1201 
8540 Schwabach 
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Vielleicht haben Sie inzwischen schon eine 
Möglichkeit gefunden, in kleineren Schritten 
als mit der Schrittweite I zu zählen. Sie 
können das mit der in der vorigen Folge 
besprochenen REPEAT-UNTIL-Schleife gut 
bewerkstelligen. Geben Sie einer Variablen 
(die natürlich hier vom Typ REAL sein muß) 
einen Startwert und addieren Sie in der 
Schleife den gewünschten Wert. Die UNTIL- 
Bedingung lautet dann: UNTIL variable >= 
endwert. 


Bei reellen Zahlen sollten Sie unbedingt >= 
anstelle von = verwenden. Erstens könnten Sie 
nämlich einen Fehler gemacht haben, so daß 
der Endwert überschritten wird. Die Schleife 
läuft dann endlos. Und zweitens können bei 
sehr kleinen Schritten Rundungsfehler auf- 
treten, so daß auch hier der Endwert über- 
schritten (oder besser: übersprungen) wird. Bei 
">=" kann Ihnen da kein Fehler unterlaufen. 
Ohnehin klar dürfte sein, daß Sie beim Rück- 
wärtszählen logischerweise ein "<=" verwenden 
müssen. 


Das folgende Programm zählt zunächst in 0.5 
er-Schritten vorwärts und dann in 0.25er- 
Schritten zurück: 


PROGRAM sählelangsam; 
VAR 
i: REAL; 
BEGIN 
1:=0; 
REPEAT 
1:=1+ 0.5; WRITELN (i:5:2) 
UNTILi>= 8; 
REPEAT 
i:= 1 - 0.25; WRITELN (i:5:2) 
UNTILi<=0 
END. 


Erinnern Sie sich noch an die zweite Be- 
zeichnung für die REPEAT-Schleife? Sie 
lautete "Wiederholung mit Abfrage am Ende". 
Dies legt die Vermutung nahe, daß es auch 
eine "Wiederholung mit Abfrage am Anfang" 
geben muß. Es gibt sie, und es ist die 
WHILE-Schleife, die Sie als den BASIC- 
Befehl WHILE...WEND kennen. 


Diese Schleife ist relativ einfach zu- verstehen, 
wenn Sie einmal erkannt haben, wie die RE- 
PEAT-Schleife funktioniert Dort wird der 
Programmblock auf jeden Fall einmal ausge- 
führt, weil die Bedingung erst am Schluß 
überprüft wird. Die WHILE-Schleife wird 
nicht notwendigerweise ausgeführt, sondern 
nur dann, wenn die Bedingung vor dem 
Schleifendurchlauf erfüllt ist, oder mit 
anderen Worten: solange die Bedingung erfüllt 
ist. Und hier sind wir bei der wörtlichen 
Übersetzung von "while" angekommen. 


Bevor Sie an einem Vergleich den Unterschied 
zwischen REPEAT und WHILE erkennen sol- 
len, sei Ihnen noch eine weitere Eigenart 
dieser neuen Art der Wiederholung mitgeteilt, 
die Sie aber von der Zählwiederholung her 
bereits kennen. Nach 


WHILE bedingung DO 


kann nur ein einziger Befehl stehen. Hier hilft 
uns aber wieder die Konstruktion, die wir 
einmal als "BEGIN-END-Klammer" bezeich- 
neten. Und nun der versprochene Vergleich: 


4/664/6128 


Einführung in 


PROGRAM wiederholungl; { REPEAT...UNTIL) 
VAR 
1: INTEGER; 
BEGIN 
1:= 9; 
REPEAT 
i:=1+ 1; WRITELN (i) 
UNTILi>=$ 
END. 


PROGRAM wiederholung2; { WHILE) 
VAR - 
1: INTEGER; 
BEGIN 
1:= 9%; 
WHILE i < 5 DO (beachte: Gegenteilige Bedingung 
wie bei UNTIL!) 
BEGIN 
i:=1+ 1; WRITELN (i) 
END 
END. 


Bei Programm I läuft die Schleife einmal 
durch - es erscheint der Wert 100. Erst dann 
wird dieser Wert als unzulässig erkannt und 
das Programm beendet. Wenn hier etwas an- 
deres stünde als "nur" der WRITELN-Befehl 
(z.B. der Aufruf einer Maschinensprach-Rou- 
tine, die den Wert von i irgendwie verarbei- 
tet), könnte, wenn Sie Pech haben, das Pro- 
gramm abstürzen. Bei Version 2 dagegen wird 
der unzulässige Wert von i schon vorab er- 
kannt und die Schleife garnicht erst ausge- 
führt. 


CPC 464/664/6128 
Einführung in 
HıSoft 


akti 


Der dritte Teil der SCHNEIDER-aktiv Programmierserie in 
HiSoft PASCAL behandelt: 


- "ZÄHLEN in kleineren Schrittweiten als 1" 

- "WHILE bedingung DO" Anweisung 

- "REPEAT anweisung UNTIL FALSE" Anweisung 
- Konstantendeklaration "CONST" 


Alles wird an kleinen Programmbeispielen erläutert. Wir freuen 
uns über das rege Interesse an dem HiSoft PASCAL 
Programmierkurs und teilen die Meinung unserer Leser über die 
sachliche und klare Darstellung dieser Programmiersprache 
durch unseren Autor. Herr Ertl hat sich die größte Mühe 
gegeben mit wenigen Worten und an klaren Beispielen den CPC- 
User für diese Programmiersprache zu begeistern. 
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inführung in 


HiSoft 


Ihre Konsequenz aus dieser Erkenntnis sollte 
sein: Verwenden Sie WHILE-Schleifen, wenn 
dies möglich ist, das heißt i.d.R. immer dann, 
wenn die in der Bedingung vorkommende(n) 
Variable(n) bereits einen Wert zugewiesen 
bekommen haben. Wenn sie diesen Wert je- 
doch erst innerhalb der Schleife erhalten (so 
z.B. bei der Variablen "antwort" im Programm 
"Restdivision", s. Folge 2), so müssen Sie auf 
REPEAT zurückgreifen. Nebenbei: Hüten Sie 
sich vor der versehentlichen Verwendung von 
Variablen, denen Sie noch keinen Wert zuge- 
wiesen haben. HiSoft-Pascal teilt ihnen dann 
meist Zufallswerte zu, was zu ebenso zufäl- 
ligen Ergebnissen führt. 


Die geschweiften Klammern in den beiden 
Programmen sind Ihnen sicher schon auf- 
gefallen. Vielleicht haben Sie auch schon 
erraten, was sie bedeuten: Sie grenzen 
Kommentare vom übrigen Programm ab. Diese 
Kommentare sind etwas wie die REM-Zeilen 
in BASIC und werden vom Compiler nicht 
mitübersetzt. Sie benötigen also nur Platz in 
der Textversion des Programms, nicht aber in 
der (compilierten) Code-Version. Statt der 
geschweiften Klammern können Sie auch die 
Zeichenkombinationen (* und *) verwenden. 


Bei Wiederholungen sollten Sie vorsichtig mit 
den Strichpunkten umgehen. Eine Schleife wie 
etwa 


x := (0; 


WHILE x < 1 DO; 


würde endlos laufen. Das Semikolon nach dem 
DO stellt einen Leerbefehl dar. Da die Be- 
dingung "x<I” erfüllt ist und sich in der 
"Schleife" nicht ändert, können Sie das Pro- 
gramm nur mit ESC-ESC stoppen. 


Der oben geschilderte Leerbefehl kann jedoch 
auch ganz nützlich sein. So stellt z.B. die 
Schleife 


FOR I := 1 TO 10000 DO; 


zwar auch eine "Tunix-Konstruktion" dar. Sie 
wird jedoch vom Computer selbst beendet, da 
der Zähler i weiterläuft, obwohl in der Schlei- 
fe kein Befehl steht. Zählen jedoch braucht 
seine Zeit; und somit wissen Sie jetzt, was Sie 
da vor sich haben: eine Verzögerungsschleife, 
die dazu geeignet ist, das Programm kurze 
Zeit anzuhalten, um z.B. dem Benutzer das 
Ablesen einer Anzeige zu ermöglichen, bevor 
der Bildschirm gelöscht wird. 


Wir haben gesagt, daß Bedingungen wie boole’ 
sche Variable ausgewertet werden. Eine be- 
liebte Endlosschleifen-Konstruktion ist daher 


REPEAT 
anwelisungen 
UNTIL FALSE 


Hier steht eine boole’sche Konstante als 
Bedingung. Diese "Bedingung" kann natürlich 
nie TRUE werden. Aber denken Sie daran: 
Endlosschleifen haben höchstens in Vorführ- 
programmen, die von selbst immer wieder von 
vorne laufen sollen, etwas zu suchen. An an- 
deren Stellen kann man solche Gebilde getrost 
als "programmer’s nightmare" bezeichnen. 


Nachdem Sie jetzt Schleifen aller Art kennen, 
sollen Sie noch einen weiteren Teil des Pro- 
grammkopfes kennenlernen, den Sie gelegent- 
lich benötigen: Die Konstanten-Deklaration, 
eingeleitet vom Schlüsselwort CONST. 


Konstanten sind "Variable", die eben keine 
mehr sind - weil sie ihren Wert nicht ändern. 
Sie können einer Konstanten, wenn Sie sie 
einmal deklariert haben, keinen Wert zuwei- 
sen, sie aber ansonsten verwenden wie jeden 
Variablennamen. Sie werden gleich sehen, wie 
das gemeint ist. 


Wenn wir einmal gesagt haben, die VAR-De- 
klaration folge gleich nach der PROGRAM- 


‚Zeile, so war das nicht ganz richtig. Dieser 


Teil ist strenggenommen sogar der letzte 
Abschnitt des Programmkopfes, der aus meh- 
reren Teilen besteht. Jetzt lernen Sie den 
zweiten kennen; ein dritter und letzter wird 
folgen. Wie dem auch sei, CONST folgt - 
wenn Sie es verwenden - immer direkt nach 
der Überschrift. Daran anschließend kommt 
jener eben erwähnte und Ihnen noch unbe- 
kannte Teil (natürlich nur, wenn Sie ihn 
benötigen), und dann erst kommen die Va- 
riablen. 


In einem Programm könnten Sie beispielsweise 
die Zahl PI=3.14159 benötigen. Damit Sie 
nicht immer diese Bandwurm-Zahl schreiben 
müssen, können Sie deklarieren: 


CONST 
pi = 3.14159; 


Die Wertzuweisung an Konstanten erfolgt 
konsequenterweise mit einem Gleichheitszei- 
chen. Man legt ja hier eine Art "unveränder- 
lichen Zustand” fest: pi hat den Wert 3.14159, 
und das dürfte vorerst auch so bleiben. 


Ein weiteres Beispiel: Sie benötigen für ein 
Programm die Mehrwertsteuerberechnung. 
Nun ist es zwar keine Mehrarbeit, an allen 
betreffenden Stellen die Zahl 14 einzusetzen. 
Was aber machen Sie, wenn die Steuer wieder 
einmal erhöitt wird? Sie müssen das ganze 
Programm durchsehen und den Wert jeweils 
ändern. Dabei übersehen Sie womöglich eine 
Stelle, und schon stimmt nichts mehr. Die 
Deklaration 


CONST 
mwst = 14; 


erspart Ihnen da viel Arbeit: setzen Sie einfach 
im Programm die Konstante mwst ein und Sie 
müssen im Fall des Falles nur die Konstanten- 
deklaration ändern. 


Bemerkenswert ist noch, daß Konstanten nur 
vom Typ REAL, INTEGER, CHAR _ oder 
BOOLEAN sein können. Dabei erkennt der 
Computer anhand der Wertzuweisung, um 
welchen Typ es sich handelt, so daß dies nicht 
explizit festgestellt werden muß. Man kann 
A’ eben schlecht als reelle Zahl ansehen... 
(Erti) j 
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Die SCHNEIDER-aktiv Fragebogenaktion be- 
geistert unsere Leser. Es interessiert jeden 
Leser, wie Käufer von CPC-Hard- und Soft- 
ware diese bewerten und. ob ihre Erwartungen 
erfüllt wurden. 


Monat für Monat werden ein oder auch meh- 
rere Fragebögen zusammengestellt, deren 
Auswertung in den Folgeausgaben veröffent- 
licht wird. Durch diese auf dem Computer- 
markt nach wie vor wohl einmaligen Aktionen 


entsteht eine Erfahrungsaussage über CPC 
Hard- und Software, die nicht auf den 
Erfahrungen bzw. Untersuchungen einer 


einzigen Person beruht, sondern die Erfah- 
rungen der Hard- und Softwareanwender wi- 
derspiegelt. Die Gefahr von normalen Test- 
berichten, Tests an besonders bereitgestellten 
Anlagen, Beeinflussung von Testautoren, der 
Vorliebe von Autoren für bestimmte Software 
und Geräte, die mögliche Abhängigkeit von 
Zeitschriften durch Inseratsabschlüsse usw. 
dürfte hiermit ausgeschlossen sein. Die 
Auswertung der Fragebögen erhält damit den 
Charakter von Praxiserfahrungen der Anwen- 
der. Die Auswertungen der Fragebogenaktio- 
nen geben keine Aussage über technische Be- 
sonderheiten und Details. Auch wird der Be- 
sitzer billiger und einfacher Hard- und Soft- 
ware normalerweise in die Leistungsfähigkeit 
andere Erwartungen setzen als ein Anwender, 
der mehr Geld angelegt hat. 


Anwender berichten über ihre Erfahrungen 


Wie aus den Fragebögen zu ersehen ist, bitten 
wir die Anwender von Hard- und Software 
Noten zu erteilen. Die abgegebenen Noten 
werden mit einem Wichtungsfaktorr - W - 
multipliziert. Dadurch wird jeder einzelnen 
Frage ein Gewicht zugeordnet, da die Fragen 
nicht gleichwertig sein können. 


Ein Beispiel: Die Tauglichkeit bzw. die leichte 
Bedienbarkeit einer Software ist für den 
Käufer das Wichtigste. Daher geht man hier 
u.U. von einem höheren Wichtungsfaktor aus, 
als z.B. bei der Frage nach der Kundenbera- 
tung durch den Hersteller bzw. Lieferanten 
insbesondere als eine Kundenberatung bei ei- 
nem einwandfrei funktionierenden Programm 
gar nicht erst in Anspruch genommen werden 
muß. Da es sein könnte, daß die Wichtungs- 
faktoren vom Anwender anders beurteilt wer- 
den, kann der Anwender eigene Wichtungs- 
faktoren festlegen. Er muß jedoch darauf 
“ achten, daß die Summe seiner Wichtungsfak- 


toren wiederum den Betrag ergibt, der als 
Summe vorgegeben wurde, da sonst seine Be- 
wertung nicht in die Fragebogenaktion einbe- 
zogen werden kann. Alle Leser, die eigene 
Wichtungsfaktoren festlegen, bitten wir im 
Fragebogen unseren Wichtungsfaktor zu strei- 
chen und durch ihren eigenen Wichtungsfaktor 
zu versehen und die Summe der Wichtungs- 
faktoren zu bilden und mit der vorgegebenen 
Summe auf Gleichheit zu kontrollieren. Die 
Erhöhung eines Wichtungsfaktors muß also zur 
entsprechenden Erniedrigung eines anderen 
Faktors führen. 


Die Auswertung wird mit der Grundbedin- 
gung verknüpft, daß mindestens 5 bewer- 
tungsfähige Fragebögen für die bewertete 
Hard- und Software zur Verfügung stehen. 


Wir stellen uns vor, daß nicht nur der CPC 
Anwender aus diesen Fragebogenaktionen 
Nutzen zieht, sondern auch die Hard- und 
Softwarehersteller die Fragebogenauswertun- 
gen kritisch lesen. So wird sich eine positive 
Auswirkung einstellen, die letztlich wieder 
den CPC-Anwendern zugute kommt. 


Bei Fragebögen, bei denen die eine oder an- 
dere Note fehlt oder eine Null eingetragen ist, 
wird bei der Auswertung die Note 3 einge- 
setzt. Wir bitten jedoch unsere Leser möglichst 
allen Fragen eine Note zu vergeben, da dieses 
Verfahren im Einzelfall die Folge haben kann, 


daß Hard- und Software, die verhältnismäßig 


schlecht abgeschnitten hat, etwas aufgewertet 
und Hard- und Software, die überdurch- 
schnittlich gut abgeschnitten hat, geringfügig 
abgewertet wird. 


Wir werden die Ergebnisse der Fragebogen- 
aktionen in tabellarischer Form zum Abdruck 
bringen, und zwar in Form einer Tabelle der 
Gesamtbewertung über alle Einzelfragen. Pro- 
gramme, die mit weniger als 5 Fragebogen be- 
wertet werden, werden als nicht gewertet ge- 
kennzeichnet. 


Einsendeschluß 


Der Einsendeschluß für die Einbeziehung der 
Bewertungsbögen ist der in SCHNEIDER- 
aktiv angekündigte Erscheinungstermin der 
Nächstausgabe_ bezw. deren Redaktionsan- 
nahmeschluß. Dadurch ist gewährleistet, daß 
zwei Ausgaben nach jeder Fragebogenaktion 
die Gesamtwertung dem Leser zur Verfügung 
steht. Wir behalten uns vor zusätzlich zur 


Fragebogenaktion Diskettenlaufwerke 1 
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SOFTWARE HARDWARE 
Fragebogenaktion 


FRAGEBOGENAKTION 5/86 CPC-DISKETTENLAUFWERKE I 


Ich habe den unten angekreuzten Artikel nach folgenden Bewertungsstufen bewertet. Die vorgegebenen Wichtungsfaktoren habe 
ich - soweit diese nicht meinen Vorstellungen entsprechen - abgeändert. 


= sehr gut, sehr zufriedenstellend, optimal 

= gut, voll zufriedenstellend 

= befriedigend, nicht enttäuscht, nicht weltbewegend, funktioniert 
ausreichend, man kann damit noch arbeiten, für mich ohne Zukunft 

mangelhaft, nicht ausbaufähig, unzuverlässig, gibt oder müßte Besseres geben 
ungenügend, ständig Reklamationen, nicht funktionsfähig, unbrauchbar 
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Name: _- Vorname: Straße: PLZ/Ort: Tel.: 


Meine Bewertung betrifft das DISKETTENLAUFWERK (nur eines ankreuzen): 


O SCHNEIDER 3" O VORTEX 5,25" 

O DATA-MEDIA 5,25" O CUMANA 3" 

O VORTEX 3,5" O CUMANA 5,25" 

Wann bestellt: Wann/Wie bezahlt: Wann geliefert: 
W G 
Fragen Note Wichtungsfaktor Gesamtpunkte 
1 bis 6 vorgegebener eigener Note X Wichtungsfaktor 

1. Funktionssicherheit/Zuverlässigkeit \ BERESE | EBENE 
2. Qualität/Verarbeitung SEEN. EEE 
3. Lauffähigkeit gekaufter Software 1 AR 
4. Diskettenpreis 9. 
5. Bedienerfreundlichkeit R [A n 
6. Handbuch/Dokwmentation (wenn nicht nötig: Note 1) 5s__ 
7. Wartezeit von Bestellung bis Lieferung 8: 2 
8. Preis/Leistungsverhältnis EN VIREN 
9. Erfüllt die Erwartungen KERN 
10. Erreichbarkeit des Herstellers bei Fragen 4 


11. Auskunft des Herstellers bei Schwierigkeiten 


SIESESZLZIZZSZISSELERSEEIZEIZESEILEIZIIESSESTEISSSSESZESSSIIESSESSZESSEI SEI IE m 


SUMMEN: kontrolle: Insgesamt 67 
SONSTIGES: Z.B:PROBLEME, ÄRGER, ERFREULICHES - EVTL. BRIEF BEIFÜGEN: 


Ich versichere, daß die obengenannten Angaben meinen persönlichen Erfahrungen entsprechen. 


Ort/Datum Unterschrift 


Diskettenlaufwerke 1 


14 FRAGEBOGEN 


HARDWARE SOFTWARE 


unserer Redaktion - aber bitte so rechtzeitig, 
damit er in die Fragebogenaktion einfließen 
kann. 3 
Gesamtwertung über die Einzelnoten aus der 
„Fragebogenaktion weitere Gruppenwertungen 
zu den einzelnen Fragen aufzuzeigen. 


Der Fragebogen: 


Unser Fragebogen besteht aus einer Reihe von 
Fragen jeweils zugeschnitten auf die Artikel- 
gruppe. Der Einsender des Fragebogens hat 
für jede Frage eine Bewertung in Zahlen 
durchzuführen. Die Notenstufung von 1 bis 6 
entspricht der schulüblichen Skala. 


Die Bewertungsstufen 


Note 1 = sehr gut, sehr zufriedenstellend, 
optimal 

Note 2 = gut, voll zufriedenstellend 

Note 3 = befriedigend, nicht enttäuscht, nicht 
weltbewegend, funktioniert 

Note 4 = ausreichend, man kann damit noch 
arbeiten, für mich ohne Zukunft 

Note 5 = mangelhaft, nicht ausbaufähig, un- 
zuverlässig, es gibt oder müßte besse- 
res geben 


Note 6 = ungenügend, ständig Reklamationen, 
nicht funktionsfähig, unbrauchbar 


Jeder Fragebogen bezieht sich nur auf ein 
einziges Produkt. Sofern der Anwender meh- 
rere Produkte, die in der Fragebogenaktion 
angesprochen sind zur Verfügung hat, muß er 
mehrere Fragebögen, d.h. für jedes Programm 
einen eigenen Fragebogen ausfüllen. Wir bit- 
ten den Anwender aus diesem Grunde ggf. 
sich den Fragebogen zu kopieren. 


In der Spalte W haben wir den Wichtungsfak- 


tor, der unserer Meinung entspricht, einge- 
tragen. 


In der Spalte G multiplizieren Sie bitte: die 
von Ihnen erteilte Note mit dem Wichtungs- 
faktor_ W und tragen Sie in der Spalte G 
jeweils das Produkt ein. Nach Eintragung aller 
Produkte bilden Sie die Summe der Spalte G 
und tragen diese in die Spalte: "Summe" ein. 
Sofern Sie einen eigenen Wichtungsfaktor 
wählen, streichen Sie bitte unseren vorge- 
gebenen Wichtungsfaktor W und tragen rechts 
daneben Ihren Wichtungsfaktor ein. Beachten 
Sie jedoch, daß die Summe sämtlicher Wich- 
tungsfaktoren genau die Zahl ergibt, die in 
der Spalte "Kontrolle: Insgesamt" vorgegeben 
1St. 


Fragebogenauswertung 


FRAGEBOGENAKTION 


Speichererweiterungen 


Hier die Auswertung der Fragebogenaktion: CPC-SPEICHERERWEITERUNGEN. Die 
Anwender benoteten die Speichererweiterungen der Fa. VORTEX und DATA-MEDIA. 
Die Wertungen stellen einzig und allein die Wertungen der Einsender der Fragebögen 
dar und sind weder repräsentativ noch stellen sei die Wertung der Redaktion oder des 
Verlages dar. SCHNEIDER-aktiv hat lediglich aus den abgegebenen Noten und 
Wertungen die Durchschnitte gebildet. 


Die Frage 1: "EINBAU und EINBAUANLEITUNG" wurde von den Einsendern 


im Durchschnitt wie folgt benotet: 


DURCHSCHNITTSNOTE 1,9 
DURCHSCHNITTSNOTE 4,8 


VORTEX SPEICHERERWEITERUNGEN: 
DATA-MEDIA SPEICHERWEITERUNGEN: 


Die Frage 2: "BETRIEBSBEREITSCHAFT NACH EINBAU" wurde von 


den Einsendern im Durchschnitt wie folgt benotet: 


DURCHSCHNITTSNOTE 1,2 
DURCHSCHNITTSNOTE 4,8 


VORTEX SPEICHERERWEITERUNGEN: 
DATA-MEDIA SPEICHERWEITERUNGEN: 
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Fragenbogenauswertung 
Speichererweiterungen 


Die Frage 3: "AUFRÜSTBARKEIT" wurde von den Einsendern im Durchschnitt 
wie folgt benotet: 


Y 


VORTEX SPEICHERERWEITERUNGEN: DURCHSCHNITTSNOTE 1,2 
DATA-MEDIA SPEICHERWEITERUNGEN: DURCHSCHNITTSNOTE 5,3 


Die Frage 4: -MITGELIEFERTE SOFTWARE" wurde von den Einsendern im 


Durchschnitt wie folgt benotet: 


5,0 


VORTEX SPEICHERERWEITERUNGEN: DURCHSCHNITTSNOTE 2,2 
DATA-MEDIA SPEICHERWEITERUNGEN: DURCHSCHNITTSNOTE 4,5 


Die Frage 5: "PREIS/LEISTUNGSVERHÄLTNIS" wurde von den Einsendern 


im Durchschnitt wie folgt benotet: 


VORTEX SPEICHERERWEITERUNGEN: DURCHSCHNITTSNOTE 2,1 
DATA-MEDIA SPEICHERWEITERUNGEN: DURCHSCHNITTSNOTE 4,3 


Die Frage 6: "ERFÜLLT DIE ERWARTUNGEN!" wurde von den Einsendern 


im Durchschnitt wie folgt benotet: 


VORTEX SPEICHERERWEITERUNGEN: DURCHSCHNITTSNOTE 1,8 
DATA-MEDIA SPEICHERWEITERUNGEN: DURCHSCHNITTSNOTE 4,8 


Die Frage 7: "PLATINENQUALITÄT" wurde von den Einsendern im 


Durchschnitt wie folgt benotet: 


VORTEX SPEICHERERWEITERUNGEN: DURCHSCHNITTSNOTE 1,6 
DATA-MEDIA SPEICHERWEITERUNGEN: DURCHSCHNITTSNOTE 5,8 


Die Frage __8& _ "AUSKUNFT DES HERSTELLERS BEI 
SCHWIERIGKEITEN: wurde von den Einsendern im Durchschnitt wie folgt 


DATA-MEDIA-SPEICHERERWEITERUNGEN: 
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benotet: 
VORTEX SPEICHERERWEITERUNGEN: DURCHSCHNITTSNOTE 1,4 
DATA-MEDIA SPEICHERWEITERUNGEN: DURCHSCHNITTSNOTE 5,3 


Die Frage 9: "MITGELIEFERTE ANLEITUNG" wurde von den Einsendern im 


m Durchschnitt wie folgt benotet: 

= 

[o) VORTEX SPEICHERERWEITERUNGEN: DURCHSCHNITTSNOTE 2,3 

= DATA-MEDIA SPEICHERWEITERUNGEN: DURCHSCHNITTSNOTE 5,3 
>= Die Frage 10: "CP/M, BASIC, RAM DISK TAUGLICHKEIT" wurde von 
a den Einsendern im Durchschnitt wie folgt benotet: 

TC, VORTEX SPEICHERERWEITERUNGEN: DURCHSCHNITTSNOTE 1,3 

DATA-MEDIA SPEICHERWEITERUNGEN: DURCHSCHNITTSNOTE 5,0 


Die Frage 11: "EINHALTUNG DER WERBEVERSPRECHUNGEN' 


wurde von den Einsendern im Durchschnitt wie folgt benotet: 
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VORTEX SPEICHERERWEITERUNGEN: DURCHSCHNITTSNOTE 1,6 
DATA-MEDIA SPEICHERWEITERUNGEN: DURCHSCHNITTSNOTE 5,3 


CPC 464 664 6128 
Uhwzeit-Pro KANN 


ICLOCKN. ICLOCKOFF, ITIME 
IPOSITION, wobei die ersten beiden zum Ein- 
und Ausschalten der Uhr dienen. ITIME, 
h Ä stunde, minute, sekunde erlaubt das Stellen | 
wenn Sie Progamme eingeben. der Uhr. Mit IPOSITION,x,y können Sie die 
Das Programm führt 4 neue RSX-Befehle ein, | Bildschirmposition der Anzeige verändern. 


| 50 ad=-&A400:sz=19: In=100: Instp=10: MEMORY ad-1 
60 ON ERROR GOTO 95 
| 70 su=-0:READ a$:cs=UALC"&"+a$): 


EPC 464/664/6128B 


Dieses Programm ermöglicht die Darstellung. 
einer Uhr an einer beliebigen Bildschirmposi- 
tion. Es läuft sowohl wenn Sie ein Basic- oder 
Assemblerprogramm laufen lassen, als auch 


FOR i=ad TOD ad+sz:READ a$:a=VALC”&”+a$):POKE i,a: 
| sussu+ta:NEXT: IF cs<>su THEN PRINT”DATA ERROR in”+STRSC1In):END 
, 80 ad=-ad+sz+1l:in=In+1nstp:GDTD 70 
90 CALL &A4OO: ı CLOCKON: END 
|g95 IF ERR=4 THEN RESUME 90 
ı97 DON ERROR GOTDO O 
| 100 DATA 7DB,21,1B,45,7E,B7,28,06,CD,5A,BB,23,18,F6,01,16,A4,21,41,A4,C3 
110 DATA AYF,D1,BC,24,R4,C3,45,A4,C3,4B,R4,C3,02,45,C3,FA,RA4,43,4C,4F,43 
| 120 DATA 760,4B,4F,CE,43,4C,4F,43,4B,4F,46,05,54,49,4D,C5,50,4F,53,43, 54 
| 130 DATA 865,493,4F,CE,00,00,24,A4,00,00,21,51,A4,C3,E3,BC,21,51,A4,C3,E6 
| 140 DATA 4E3,BC,00,00,00,00,00,80,5A,A4,00,2A,59,45,23,3E,01,BC,20,05,3E 
| 150 DATA 6FO,2D,ED,28,04,22,59,45,C9,21,00,00,22,59,A5,3A,5B,AS,3C,FE,3C 
160 DATA 689, 28,05,32,5B,A5,18,21,AF,32,5B,A5,3A,5C,#5,3C,FE,3C,28,05,32 
| 170 DATA 790,5C,A5,18,10,AF,32,5C,A5,3A,5D,AS,3C,FE,18,20,01,AF,32,5D,AS5 
| 180 DATA AB1,3E,C3,32,CD,BD,32,DO,BD,3A,5D,A5,47,CD,78,BB,ES,11,F8,A4,1A 
ı 190 DATA SBB,6F,13,1R,67,CD,75,BE,1E,3A,78,CD,E2,A4,7B,CD,5A,BB, 3A,SC,AS 
jg00 DATA C4YE,CD,E2,A4,7B,CD,SA,BB, 3A,5B,A5S,CD,E2,A4,E1,CD,75,BB,3E,C3, 32 
| 
| 
| 
| 
j 
j 
| 


220 DATA AEB,F3,A4,F1,C6,30,C3,5A,BB,01,49,6B,DD,66,02,22,F8,RA4,C9,F3,21 
230 DATA 74B,00,00,22,59,45,7B,32,5B,A5,DD,7E,02,32,5C,A5,DD,7E,04,32,5D 
240 DATA 585,A5,FB,C9,04,02,07,2A,20,43,4C,4F,43,4B,20,34,36,34,2F,36,36 
72,69,67,68 
‚69,67,67 


250 DATA S52,34,2F,36,31,32,38,20,2A,20,20,2F,20,43,6F,70,793, 
250 DATA 5D3,74,20,A4,20,31,39,38,36,20,62,79,20,54,6B,2E,20,47 


270 DATA 086,65,0D,0A,O0R,00 
Copyrıght 


(C) 1986 by Th. Gigge 


BZ © me © ze © ze a 2 #0 Ze a ee ei 


und = 


Turbo- 


Wie der Name schon sagt, handelt es sich hier 
um eine schnelle Routine zum Zeichnen von 
Kreisen. Sie wird in Form eines RSX-Befehls 
eingebunden. Er heißt: ICIRCLE,xc,yc,xr,yr 
<,aw,ew>. 


Dabei sind xc und yc die Koordinaten des 
Kreismittelpunkts und xr sowie yr der X- und 
Y-Radius. Es können also auch Ellipsen ge- 
zeichnet werden, indem xr und yr unter- 
schiedliche Werte annehmen. Die Parameter 
aw und ew sind nicht unbedingt erforderlich. 
Sie dienen zum Zeichnen eines Kreisab- 
schnitts, d.h. es können z.B. durch Angabe des 
Anfangs- und Endwinkels (aw und ew) Halb- 
kreise gezeichnet werden. Das Programm 
"läuft nur auf dem CPC464. 


Die Frage, die sich einige von Euch stellen. 


Is5S ad=ad+sz+1:In=1In+1Instp:GDTD 50 
I60 CALL &A000:G60TO 800 
I65S IF ERR=-4 THEN RESUME 60 

Ö 170 DON ERROR GDTO O 


Circle .. 


| 
I 
I 
I 
) 
| 
| 
) 
I 
I 
) 
| 
) 
| 
) 
210 DATA 99B,CD,BD,32,D0,BD,C3,0E,00,FE,0A,38,05,0C,D6,0R,18,F7,F5,79,CD ) 
) 
j 
) 
| 
I 
) 
) 
) 
| 
) 
) 
) 
) 
I 
) 
) 


(®) 45 ad=-&A000:sz=19:1n=100:1Instp= 10: MEMORY ad-1:D0N ERROR GOTD 65 
ISO su=0:READ a$:cs=UALC”®’ "+3$5):FOR i=ad TOD ad+sz:READ a$:a=VUALC”&”+a$): 
o Isu=su+a:NEXT: IF cs<>su THEN PRINT”DAITA ERROR in"+STRSC1in):END 


werden, ist, wie man denn nun eine Kreisrou- 
tine schneller machen kann. Das ist relativ 
einfach, wenn man weiß, daß der CPC beim 
Zeichnen eines Kreises die meiste Zeit mit 
dem Berechnen von SIN- und COS-Werten | 
verbraucht. Aus diesem Grund, sind beij 
TURBO-CIRCLE alle SIN- und COS-Werte I 
bereits im voraus berechnet und liegen hier in 


tabellarischer Form vor, d.h. TURBO- 
CIRCLE braucht nur die einzelnen SIN-! 
/COS-Werte aus einer Tabelle abzulesen, | 


anstatt sie zu berechnen. | 

| 
Weiter wird bei diesem Programm nicht fürı 
alle 360 Grad ein Punkt berechnet bzw. ge-ı 
zeichnet, sondern nur alle 4 Grad, d.h. esı 


werden pro Kreis nur 90 Punkte berechnet.! 
) 


POKE i,a: 


000000000000000000000000 


Copyright (EC) 1986 by Th. Gigge 


DATA 07BC,21,27,A0,7E,B7,28,06,CD,5#,BB,23,18,F6,01,16,A0,21,23,R0,C3 
DATA O6FA,D1,BC,1B,A0,C3,5B,A0,43,49,52,43,4C,C5,00,00,1B,A0,00,00,07 
DATA O4E4,2A,20,54,55,52,42,4F,20,43,49,52,43,4C,45,20,2A,20,20,43,6F 
DATA 0694,70,73,72,69,67,68,74,20,A4,20,31,39,38,36,20,62,79,20,54,68 
DATA 0578,2E,20,47,69,67,67,65,0D,0A,0A,00,FE,04,28,2F,EB,11,04,00,CD 
DATA OABB,B8,BD,ES,DD,66,03,DD,6E,02,11,04,00,CD,B8,BD,D1,EB,AF,BC,20 
DATA 06D2,04,BD,20,01,23,BA,20,04,BB,20,01,13,0D,23,DD,23,0D,23,0D,23 
DATA 0742,18,06,11,01,00,21,54,00,ED,53,70,A1,22,FS,A0,DD,66,01,DD,6E 
DATA 0929,00,11,6B,A1,CD,40,8D,DD,66,03,DD,6E,02,11,66,A1,CD,40,BD,CD 
DATA OAE2,CC,BB,ES,D5,DD,56,07,DD,5SE,06,DD,66,05,DD,6E,04,CD,C9,BB,3E 
DATA 0B13,FF,CD,73,BD,CD,09,A1,ED,5B,58,A1,2A,5A,A1,CD,CO,BB,18,0D,CD 
DATA 0816,09,A1l,ED,5B,58,Al,2A,5A,A1,CD,F6,BB,2A,70,A1,11,01,00,19,22 
DATA OSEA,70,A1,ES,EB,11,68,01,19,EB,E1,7A,BC,28,02,30,DB,7B,BD,30,D7 
DATA OAES,D1,E1,C3,C9,BB,2A,70,A1,11,5C,A1,D5,D5,CD,40,BD,21,5C,A1,11 
DATA 0B10,61,41,01,05,00,ED,BO,E1,CD,72,A1,E1,11,66,A1,E5,CD,61,BD,Ei 
DATA OB8B,CD,46,BD,DD,CB,03,7E,C4,C7,BD,22,58,A#1,11,61,A1,D5,EB,CD,BF 
DATA 0CS1,A1,E1,11,6B,A1,ES,CD,61,BD,E1,CD,46,BD,DD,CB,03,7E,C4,C7,BD 
DATA O1E6,22,5A,A1,C9,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
DATA 0405,00,00,00,00,00,00,00,00,00,00,E5,21,A0,A1,11,05,00,ED,4B,70 
DATA 0953,A1,AF,18,01,19,0B,B9,20,FB,B8,20,F8,D1,01,05,00,ED,80,C9,ES 
DATA 03E8,21,70,A3,18,E1,00,00,00,00,00,00,00,00,00,00,00,5C,59,F8,0E 
DATA 030F,7B,C7,BS,7E,32,70,3D,5B,30,20,7E,B7,91,59,66,7E,7C,BE,B1,15 
DATA 094B,7F,FF,00,7C,37,7F,B9,6B,61,58,7F,6F,F7,38,78,7F,BC,76,6D,0B 
DATA 0816,80,A2,8C,10,1A,80,09,7C,F3,27,80,34,F3,04,35,80,A5,45,34,41 
DATA O8CC,80,75,60,73,4C,80,45,1D,B3,56,80,BE,13,E7,5F,80,82,C9,03,58 
DATA 0980,80, 78,20,FF,6E,80,75,63,D0,74,80,0A,51,70,79,80,A2,24,D9,7C 
DATA OBFB,80,R0,90,06,7F,80,C0,04,F6,7F,80,69,2F ,A6,7F,B0,2D,81,17,7E 
DATA 0942,80,49,EB,4B,7B,80, 3A,EA,46,77,80,60,81,0D,72,80,C2,34,A6,6B 
DATA OAIF,80,EA,00,19,64,80,F4,50,6F,5B,80,C8,F2,B3,51,80,AA,09,F3,45 
DATA 0890,80,06,FF,39,3B,80,CC,71,97,2E,80,23,24,1B,21,80,C4,E7,D5,12 
DATA 0895,80,08,89,09,03,80,58,71,71,68,7F,16,E9,0D,48,7F,80,DE,BO,26 
DATA 08B9,7F,OB,EE,83,04,7F,FO,6E,63,43, 7E,63,A2,396,79,7D,3A,3A,SE,56 
DATA 0BOA,7C,97,59,F8,8E,7B,DD,B5S,7E,B2,7D,34,5B,30,A0,7E,B1,91,59,E6 
DATA OBA7,7E,7B,BE,B1,95,7F,FF,00,7C,B7,7F,BC,6B,61,D8,7F,74,F7,38,F8 
DATA O9FC,7F,B3S,76,60,8B,80,A1,8C,10,3A,80,09,7C,F3,A7,80,34,F3,04,BS 
DATA OADS,80,A5,45,34,C1,80,76,60,73,CC,80,44,1D,E3,D6,80,BE,13,E7,DF 
DATA OB1B,80,81,f9,03,E8,80,78,20,FF,FE,80,75,63,D0,F4,80,08,51,70,F9 
DATA OBD2,80,A2,24,D9,FC,80,40,30,06,FF,80,BF,04,F6,FF,80,69,2F,A6,FF 
DATA OA7F,80,20,81,17,FE,80,49,EB,4B,FB,80,39, EA,46,F7,80%,52,81,0D,F2 
DATA 0C3E,80,C3,34,A6,EB,80,EA,00,19,E4,80,F4,50,6F,DB,80,C8,F2,B3,D1 
DATA 09E7,80,47,09,F3,C6,80,04,FF,39,BB,80,CE,71,97,AE,80,23,24,1B,Al 
DATA OAEE,80,C4,E7,D5,92,80,08,89,09,83,80,58,71,71,E8,7F,10,E9,0D,C8 
DATA 0B03,7F,86,DE,BO,A6,7F,11,EE,83,84,7F,FO,6E,63,C3,7E,63,A2,96,F9 
DATA 0547,7D,3A,3A,SE,D6,7C,CD,58,F8,0E,7B,00,00,00,00,00,00,00,00,00 
DATA 0959,BF,04,F6,7F,80,A0,9D,06,7F,80,A2,24,D9,7C,80,0A,51,70,79,80 
DATA O9EE,75,63,D0,74,80,78,20,FF,6E,80,81,C9,03,68,80,BF,13,E7,5F,80 
DATA OB1E,45,1D,B3,56,80,75,60,73,4C,80,A5,AS,34,41,80,34,F3,04, 35,80 
DATA O8B4,09,7C,F3,27,80,A1,8C,10,1A,80,BC,76,60,0B,80,6E,F7,38,78,7F 
DATA 0987,86,6B,61,58,7F,FF,00,7C,37,7F,7B,BE,B1,15,7F,B1,91,59,66,7E 
DATA 0830,3F,5B,30,20,7E,C3,B5,7E,32,7D,32,59,F8,0E,7B,3A,3A,5E,D6,7C 
DATA OBD1,63,A2,396,F9,7D,FO,6E,63,C3,7E,11,EE,83,84,7F,86,DE,BO,A6G,7F 
DATA OAFY,1C,E9,00,C8,7F,58,71,71,E8,7F,08,89,D9,83,80,C4,E7,D5,92,80 
DATA OSEC,23,24,1B,A1,80,CE,71,37,AE,80,09,FF,39,BB,80,47,09,F3,C65,80 
DATA 0C3B,C8,F2,B3,D1,80,F4,50,6F,DB,80,EA,00,19,E4,80,C3,34,A6,EB,80 
DATA OAB1,62,81,0D0,F2,80,3B,EA,46,F7,80,49,EB,4B,FB,80,2D,81,17,FE,80 
DATA OBD2,69,2F,A&B,FF,80,BF,04,F6,FF,80,R0,3D,06,FF\80,A2,24,D9,FC,80 
DATA OB1B,0B,51,70,F9,80,75,53,D0,F4,80,78,20,FF,EE,80,81,C3,03,E8,80 
DATA OAD8,BE,13,E7,DF,80,47,1D,B3,D6,80,76,60,73,CC,80,A5,A45,34,C1,80 
DATA OAO2,34,F3,04,B5,80,09,7C,F3,A7,80,A#1,8C,10,39A,80,BE,76,6D,8B,80 
DATA OBAB,74,F7,38,F8,7F,BC,6B,61,D8,7F,FF,00,7C,B7,7F,7B,BE,B1,95,7F 
DATA OBOC,B1,91,59,E6,7E,34,5B,30,A0,7E,DD,BS,7E,B2,7D,37,59,F8,8E,7B 
DATA O8FB, 3A, 3A,5E,56,7C,36,A2,96,73,7D,F0,6E,63,43,7E,1D,EE,83,04,7F 
DATA O89F,86,DE,B0,26,7F,10,E9,0D,48,7F,63,71,71,68,7F,08,89,D9,03,80 
DATA O89F ,C9,E7,D5,12,80,23,24,1B,21,80,D3,71,97,2E,80,09,FF,39,3B,80 
DATA OA24,A7,09,F3,46,80,CC,F2,B3,51,80,F4,50,6F,5B,80,EE,00,139,64,80 
DATA 0943,C3,34,A6,6B,80,5F,81,0D,72,80,3B,EA,46,77,80,49,EB,4B,7B,80 
DATA 06B9,2E,81,17,7E,80,69,2F,A6,7F,80,BF,04,F6,7F,80 

’DEMO 

MODE 1:FOR I=190 ID O STEP -10: !CIRCLE,210,200,190-1,1:NEXT 
S=1:W=1:FOR R=10 TOD 120 STEP 0.15 

:CIRCLE,520,200,R,R,W,W+S 

W=W+4: IF S+W>363 THEN W=O 

NEXT 
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Zur Anwendung: FAST LADER I. wird vor 
dem Hauptprogramm abgespeichert. Setzt man 

Zeile 220 den Namen ein, so hat man noch 
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3 3 wns4yS2 QUI34 OST 
E 8 O8T N3HI O6BER > pe ONY OT > 3ePp 4I Ohl 
38 > ayfq‘ıpe IX0d oET 
DaE ae} aıfiq+zs-zs 021 
= . 
Bern "3 2 T+2ep-23ep:ayfq auaS  OIT 
SID. ® = Ö O6BER DI ISIBER -APe 304 001 
“5 2 3 3 09 -ZP:0=ZS:0-3ep 06 
2as5#% S > EIhT '698'I98'T3'0I8'0132'IE3' IV 182 'V23'9I8 VIvO OB 
Bea Ö R ESRT ‘28'038 '303 188° 9H8 038 VB EBF V23'I98 YIOO 02 
38859 © < oT8 'Tu3‘0I8'013'3E8'208'858'T13'IU3' HER‘ T28 YIVO 09 
Fach H= hr 05 
© 5280 2 72 EEE EEE € Oh 
3 vWo.8 Re) EZ 2 2 2 ZZ 2 2 U 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0202 N 
E Schr ER: Z **s JSITan]) sesipuy UOA HYh-IdI JeNnJ ““” . OE 
ie PAmE a) a 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 7 « 02 
“** I IJ8PE7-3584 we. . OT 
v2 gıs gıı ‘ 
: er oo. „BISeL-NIINI aUTsT4 stp atmos‘g40333 Pun AyTd UUePp 8Ts UaySanıp INIAd Ohe 
aa ceAs ZE Er R- „pun ısyatadg usp ur wweaßosg - Stseg ıyı 3238af ats uape7. INIAd'’INIAd DEO 
FE Ban SS .8 „"I28Tsttegtur 930YT-ISY4. ININ4:SII 022 
SOSSE ; E58 2SAg2 Spe IXaN 012 
= 3:82 093 ng a2 Re = 2 0O=-3}eP:0-ZS: 0T +ZP=-Zp 002 
Sa NSE a” a2 PR) zp!,.: attsZ ut JeTyay,. INIAd NAHL ZSc>unsyys 4I  O6I 
re EORSR>® 237% 55 er unsyy2 Quad OBT 
273 te Su Wa SEE oT2 NHL TOBER > Ape ONW OT > ?eP al OLL 
z=8 8 “ix -1ı— sıfiq‘ıpe 3X04 091 
>, Ss oc." - © 
2.5 0. = 4 2 “9 Mo ayfiq+zs-zs oSI 
am ke) ® o an © o am © - 
ou .38c ZEI<IA 209” T+3ep-3ep:syfiq Qau34 ORT 
BEDS=EZE8 HD. A,<E 10ER DI TSBER -ıpe 304 OEL 
ae e Deo o Be 09-2P:0-ZS:0-3EP 021 
nase SIE Tears CETISAHI+.«TIBER TUI. BET A3X OTI 
s3s3390R3 357° E308 102 ‘638 YIva 001 
„Bu@So, „A na 99% ° szar '298'368‘0I8‘013'3E8'I3V8‘TB8'VER'a38‘ch8 YIVO 06 
m 3552.52 5EI8E enks RoST '038'aV8'188'ah2 ‘038 3V8EBB VOR AVR'EBR VIUO 08 
Fl SS a" oon0 ZSEE 2E8%0 256 'VeR'2a8 ‘368008013 '3E83'203'8SF 118 '3U8 YIvO OL 
=) 2.253,53 se?s 3342 082 ‘ne 128'298 ‘898008 'VOR‘3E3‘008'0SE'T28 YlvO 09 
< zart 59 9ouo EN 8 . on 
- a ur = | © 5 < ° 2 ri .Q en De 2 22 ee ee Ne ZZ zz 2 2 2 2 2 2 2 2 = zu Oh 
RE une UM =30 “»s Jallsn, sesipuy uon HI9h-IdI JaNJ war . ODE 
u ogE go ns 2 Seas E = eu ee « Ü 
< osges'z E00 390953.% J8pe se 
m SSsmE832 Wace$ NSAU Baur ARBEIT 5 VD 


N 
x 
O 
- 
be 
) 
N 
0. 
Kam 
=] 
N 


Tips & Tricks 


MINI-VOKABEL 


Dieses Mini-Programm sucht zufällig Voka- 
beln aus Datazeilen. Nicht korrekte Antwor- 
ten werden richtig ausgegeben. Bei richtigem 


Ergebnis wird nachgefragt. 


Das Programm: 


18 
28 
38 
48 
58 
68 
?’8 
88 
98 
188 
118 
128 
138 
148 


158 
168 


Die 


FREE Seal aka ae ae ae a ae ae De ae ae ea ae ee ae a De ae ae ac De ae 
REM x Mini-Vokabel * 
REM *& (c) by Torsten Hübenthal * 
FREE SKade dk ade ade ae u ae De fe ae ae De De ea De ea ae ea ae De ae ae De 
anz=18 

RESTORE 

zu=INT(CRND%xanz)+1 


for loop=1 TO zu 

READ vok1$ 

READ vok2$ 

NEXT loor 

PRINT vok1$; 

INPUT an$ 

IF an$=vok2$ THEN GOTO 68 ELSE PRINT 
"Falsch, die richtige Antwort heisst "5; 
vok2$ 

GOTO 68 

DATA Lampe, lamp »Katze,cat; Tisch, table 
‚Stuhl ,chair Tuer ‚ door ‚ Raum, room Strasse 
‚street, Frau, woman, Stift, pen; Mann; man 


Variablen: 


anz=Anzahl der Vokabeln in den Datazeilen 
zuf=zufällige Auswahl der Vokabeln 
loop=-Schleifenvariable 
an$=enthält die Eingabeantwort 
vok1$=die vorgegebene Frage (1. Vokabel) 
vok2$=diese Vokabel ist zu erraten (2. Vokabel) 


BINÄRE FILES IN ASCII-FILES 


Dieses Programm schreibt selbständig binäre 
Textfiles in ASCII-Files um. Es besteht aus 
einem Basic-Loader, der eine Maschinenrou- 
tine generiert, die die Länge des binären 
Source-Files feststellt. Darauf wird dieses File 
geladen und Zeichen für Zeichen als ASCII- 
Datei abgespeichert. 


Buolo en >] Ju En 2.2.2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ZU 2 2 2 2 2.2; 
EEE ee 


110 REM * 


120 REN * 


* 


BIN-ASC 


* 


130 REM * ein Programm zur Umwandlung vo 
n binaer in Ascii * 
140 REM * 


* 


150 REM * 


* 


160 REM * Frank Ruecker 


26.01.1986 * 


170 REN * 


* 


1B0O REM 
————— 


1000 DATA &00,&00,8&DD,&6E,8&00,&DD,8&56,8&0. 
1,846,8&23,&5E,823,856,8EB,8&11,&00,8&10,8&C 
D,&77,8&BC 

1010 DATA 8&ED,8&43,8&00,8A0,8&CD,&7A,&BC,&C 
g 

1020 FOR I-8A000 TO &AD1B: 


READ A: SUMME 
-=SUMME+A: POKE I,A: NEXT I 

1030 IF SUMME<>2935 THEN PRINT ”Data-Feh 
ler!”: END 

1040 INPUT ”Name: ”,A$ 

1050 IF INSTR(CAS$,”.”)<>O THEN PRINT "Bit 
te ohne Index!'!”: GOTO 1040 

1060 A$=A$+”.,BIN” 

1070 CALL &AO002, CAS 

1080 LAENGE=PEEKC&AD0O)+2PS56*PEEKC&AOO1)- 
1 

1090 MEMORY &2FFF 

1100 LOAD A$,&3000 

1110 A$S=LEFTSCA$S,LENCAS)-3)+"ASC” 

1120 OPENOUT AS$ 

1130 FOR 1-&3000 TO &3000+LAENGE 

1140 A=PEEKCI): IF A<>96 THEN 1170 

1150 I=I+1: IF PEEKCI)=32 THEN 1150 

1160 I=I-1: A=13 

1170 PRINT #9,CHRS$SCA); 

1180 NEXT I 

1190 CLOSEOUT 


SAVER 


Das Programm SAVER ist in keinem Fall ein 
Programm, das irgendwelche Dateien o.ä. ab- 
speichert; es soll vielmehr dazu dienen, daß 
der Basic-Programmierer seine eigenen selbst- 
erstellten Programme vor ungewollten Raub- 
kopierern schützen kann. Jetzt kann man na- 
türlıch sagen, daß das Schneider Basic mit 
"SAVE"Name",p" das gleiche kann. Hier liegt 
nur ein Nachteil vor: Mit drei Pokes läßt sich 
diese Vorrichtung wieder verdrängen. Um 
dieses zu verhindern, habe ich das Programm 
SAVER erstellt. Natürlich ist auch diese 
Schutzmöglichkeit nicht 100%ig sicher, aber es 
beugt gegen besagte Pokes vor. Um das Pro- 
gramm nun .sinnvoll einsetzen zu können, 
müßt Ihr folgendes beachten: 


l. Tippt zuerst das Programm "Codeerstel- 
ler" ab und sichert es auf Disk oder 
Kassette. 


Tips & Tricks 


10 REM EEE EEE EEE EEE 
20 REM * ”Schutz”-Programm by J.Kahle * 
30 REM * ” 


40 REM * Code erstellen (Prog. Teil 1)* 
so REM kn ln ZZ ZU ZU ZU ZU ZU ZU ZZ zZ 2 ZZ 2 2 ee ee ee 


70 CALL &BCO02:CALL &BB4E:MODE 1:PEN 3:LD 

CATE 13,2: PRINT”SCHUTZPROGRAMM”:PEN 1 

BO LOCATE 1,13: INPUT”Bitte Code eingeben 
I”; code$ 

90 LOCATE 1,15:PRINT”Alles richtig einge 

ben und notiert ?” 

100 a$=UPPERSCINKEYS): IF a$="”” THEN 100 

110 IF a$="N” THEN BO 

120 PRINT”Bitte Diskette bzw. Kassette e 

inlegen, ” : 

130 LOCATE 1,18: INPUT”Dateiname eingeben 
I!” name$ 

140 LOCATE 1,23: PRINT”Und Taste druecken 
1» 

150 CALL &BB1B 

160 ODPENOUT ””+name$ 

170 PRINT#9, code$ 

180 CLOSEOUT 

190 CLS:PRINT”Alles klar, Code abgespeic 

hert!!” 

200 NEW 


1OD REM ae ae ae ale ale ae ae abe a abe ae ae abe aa abe abe aan ae ae ae ae ae 


20 REM *”Schutz”-Programm by J.Kahle * 
30 REN * ” 
40 REM * Code abfragen (Prog. Teil 2)* 
so REM EEE EEE EEE EEE EEE EEE 
60 DN BREAK GODSUB 230 

70 ON ERROR GOTO 250 

BO IF PEEKC&ACO2I=-&S0O AND PEEKC&ACO3I-&C 
O AND PEEKC&ACO1)-&C3 THEN PRINT”So einf 
ach geht es nicht!!!”:FOR i=1 TO 1500:NE 
"XT:CALL O 

90 CALL &BC02:CALL &BB4E:MODE 1:PEN 3:LDO 
CATE 13,2:PRINT”Codeabfragung”:PEN 1 

100 LOCATE 1,13: INPUT”Bitte Code eingebe 
n!”;codel$ 

110 LOCATE 1,15:PRINT”Alles richtig eing 
eben ?” 

120 a$=UPPERSCINKEYS)I: IF a$=-"”"” THEN 120 
130 IF a$="N” THEN 100 

140 PRINT”Bitte Diskette bzw. Kassette e 
inlegen, ” 

150 INPUT”Dateiname eingeben ”;name$ 

160 PRINT”Und Taste druecken !” 

170 CALL &BB1B 

180 OPENIN””+name$ 

190 INPUT#9, code$ 

200 CLDSEIN 

210 IF code$<>codel$ THEN PRINT”Code ver 
kehrt!!”:FOR i=1 TOD S000:NEXT:GDTD 240 
220 CLS:PRINT”Okay, alles klar”:GDTO 280 
230 PEN 3:PRINT”Break nicht zulaessig”:F 
OR j=-1 TO 1500:NEXT 

e40 CALL O 

850 PRINT”FEHLER Nr.”;ERR; "in Zeile”;ERL 
;>ı11”,PRINT”Leider muss das Programm au 
s Sicherheitsgruenden geloescht werden.” 
:NEW . 

BEO ’ 

270 ° Und jetzt das Hauptprogramm ! 

280 ’ 


2. Gebt dann das Programm "Codeabfra- 
ger" ein und sichert es mit SAVE 
"Codeabfrager",p und normal. Achtet 
vor allem auf sorgfältiges Eintippen. 
(Bei Fehlern könnt Ihr es mit POKE 
&ACO2,&90:POKE &ACO3,&CO: 
POKE &ACO1,&C3 "knacken"!) 

3. Ladet nun das Programm, das geschützt 
werden soll und gebt es "RENUM 
200,10,10" ein. 

4. Spult bis zum normalgeSAVEten 
"Codeabfrager"r zurück und gebt 
"MERGE" Codeabfrager" ein. 

5. Gebt "RENUM" ein und SAVEt dann 
das gesamte Programm mit "SAVE" 
Name",p" ab. Seid Euch vorher aber 
sicher, daß Ihr keine Fehler in Eurem 
Programm mehr habt. 

. Startet das Programm "Codeersteller" 

. Ihr werdet nun nach dem Code gefragt, 
den Ihr nachher braucht, um Euer 
geschütztes Programm laufbar zu 
machen. 

8. Speichert die Code-Datei hinter Eurem 
geschützten Programm und startet es 
mit "RUN"Name. 

9. Das Programm fragt Euch nun nach 
dem Code. Wenn Ihr ihn richtig ein- 
gegeben habt, geht es weiter mit dem 
Hauptprogramm, ansonsten wird alles 
gelöscht, denn Ihr habt nur einen 
Versuch. Versucht doch mal, das Pro- 
gramm mit Hilfe der drei POKEs zu. 
listen! 


Wie die einzelnen Programmteile ablaufen 
dürfte verständlich sein. Die Peek-Abfra- 
gungen in der Codeabfragung bewirken die 
Neuinitialisierung des Computers, wenn man 
versucht, mit den genannten Pokes das Pro- 
gramm zu knacken. Auch die Struktur läßt 
sich leicht erkennen. Ich hoffe, daß Eure 
selbsterstellte Software nun einigermaßen 
sicher ist. (Kahle) 


So 


Hinweis der Redaktion: Wir weisen darauf hin, daß die 


ervielfältigung eines rogramms für die Datenver- 
arbeitung oder wesentlicher Teile davon nach dem UrhG 
stets nur mit Einwilligung des Berechtigten zulässig ist. 
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Wollten Sie wirklich Diskjockey werden? 


Für alle CPC’s — 464 + DDI-1, 664, 6128 — unser 
letztes Angebot in Sachen Floppy: 
vortex Laufwerk FI-X 


PER 


— anschlußfertiges 5.25” 
(3.5”) Laufwerk modernster 
echnologie mit 708KB 
formatierter Speicherkapazi- 
tät in formschönem Gehäuse 
mit integriertem Netzteil 


VDOS 2.0 Steckmodul 
(d.h. kein Einsenden oder 
Öffnen Ihres CPC’s) 


voll einsetzbar unter 
VDOS 2.0, CP/M 2.2 (mit 
und ohne vortex-Spei- 
chererweiterung) und 
CP/M plus (nur CPC6128) 


keine Kompatibilitäts- 
probleme, da zwischen 
VDOS und AMSDOS soft- 
waremäßig umgeschaltet 
werden kann. 


698,-DMZ 


(unverbindliche Preis 
Einführun 


bis En 


empfehlung) 


9Spreis, gült; 
de April ’86 3 


professionelle relative 
Dateiverwaltung (auch 
auf 3”-Laufwerk), 

Z80 Maschinensprache- 
monitor. 


CP/M kann von 3”- und 
5.25” -Diskette 
gebootet werden. 


Zwei neue Sterne am CPC Softwarehimmel: 


mit dem Programm WECTOR ist eine sehr komfortable grafische Darstellung von beliebigen Funktionsverläufen 
und tabellarisch vorliegenden Daten möglich: Polynomapproximation, automatische Polerfassung, Softwareschnitt- 
stelle zu TopCalc, universell einsetzbare Hardcopy (wird über RSX angesprochen, FX-80 kompatibel, voll relocatibel 
und damit in jedes eigene BASIC-Programm einbaubar). VECTOR läuft auf allen CPC’s (464, 664, 6128). 


Preise: Cassette, 5.25”-Diskette 69,- DM (unverbindliche Preisempfehlung) 
3"-Diskette 78,- DM (unverbindliche Preisempfehlung) 


Müssen Sie in eigenen BASIC-Programmen Daten über frei definierbare Bildschirmmasken (z.B. Adressverwaltung 
etc.) eingeben? 

Dann brauchen Sie MASKGEN, den professionellen vortex Maskengenerator. 

MASKGEN - ein superschnelles Maschinenprogramm - nimmt Ihnen bei der Erstellung von Bildschirm- Ein/Ausgabe- 
masken jegliche Arbeit ab und dies bei höchster Flexibilität. Die mit MASKGEN erstellten Bildschirmmasken können 
in jedes eigene BASIC/Maschinenprogramm eingebunden werden. MASKGEN läuft auf dem CPC 464. 


Preise: 5.25” -Diskette 78,—- DM (unverbindliche Preisempfehlung) 
3" -Diskette 89,— DM (unverbindliche Preisempfehlung) 


Sie erhalten unsere Produkte in allen Karstadt-, Horten-, Quelle- und Kaufhof-Computercentern, in den technischen Kaufhäusern Phora 
und Brinkmann. 


Fordern Sie unser kostenloses Informationsmaterial an. 


Mit jedem unserer Produkte erhalten Sie den vortex $ervice-Paß. Mit diesem Paß garantieren wir Ihnen einen kostenfreien Anspruch auf alle 
Neuerungen und eventuelle Verbesserungen unserer Betriebssystemsoftware. Für soft- und hardwaretechnische Fragen im Zusammenhang mit 
unseren Produkten haben wir eine User-Sprechstunde eingerichtet. Montags und Donnerstags von 18.00 — 21.00 Uhr stehen wir Ihnen 
telefonisch zur Verfügung. 

CP/M 2.2 ist ein eingetragenes Warenzeichen der Firma Digital Research. VDOS und vortex sind eingetragene Warenzeichen der Firma vortex GmbH. 


7106 Neuenstadt5 - Klingenberg 13 - Abt. Marketing 2 07139/2160 - Abt. Software & 0711/7775576 - Telex728915 


2. 
N 


Tips und Tricks zur VORTEX- 
RAM-Erweiterungskarte. 


Mittlerweile hat sie auf dem CPC-Usermarkt 
eingeschlagen wie eine Bombe: die RAM- 
Erweiterung von VORTEX. Das VORTEX- 
Team war gegen Jahresende ’85 derart im 
Streß, daß man zwischen Weihnachten und 
Neujahr erst mal eine Pause einlegen mußte, 
eine schöpferische allerdings und keine zum 
Ausruhn. 


RAM-Erweiterung jetzt auch für CPC 664 


Auch für den CPC 664 gibt’s jetzt die RAM- 
Erweiterungskarte von 64K bis 512K. Die 
Karte ist voll ausfähig. Die Sockelstecker mit 
Flachbandkabel bei der Verbindung zwischen 
CPC-Grundplatine und VORTEX-Karte wur- 
den dazu eigens geändert. Wegen anderer Pin- 
belegung wurden die Kabelanschlüsse umge- 
ändert. Dazu gibt’s auch für den CPC 664 eine 
besondere Kassetten-Patch-Version. Erst bis 
spätestens Ende März ’86 soll das ROM vor- 
liegen, das der 664-Kartenversion auch die 
BASIC-Erweiterungen des |BOS mit Bank- 
BASIC und relativer Dateiverwaltung zugäng- 
lich macht. 


"Veränderungen der Erstversion" 


Die neueste Version der Erweiterungskarte ist 
nunmehr die dritte Kartenversion seit August 
1985. Man sieht der Karte auch an, daß sie 
keine "Changes" (gelötete Kabelverbindungen, 
Pinbrücken an IC’s und Gate-Array, durch- 
trennte Leiterbahnen, etc.) mehr hat. Und eine 
Veränderung zur Erstversion hat’s auch leider 
gegeben: es gibt nicht mehr beide (rot und 
schwarze) Verbindungsklipe (RAMDIS und 
ROMDIS) zum Anschluß der RAM-Erweite- 
rung an die Kondensatoren den CPC-Grund- 
platine, sondern bedauerlicherweise nur noch 
eine (ROMDIS). Die alte Karte hatte einen 
Vorteil: durch externe Schalter konnten die 
Leitungen von ROMDIS und RAMDIS unter- 
brochen und die Erweiterungskarte völlig ab- 
gemeldet und dadurch "Urzustand" des CPC 
vor Karteneinbau hergestellt werden, was 
natürlich günstig für eine Kompatibilität zum 
Altzustand hin war. Der neue ROM von Vor- 
ex mit dem Befehl IDISBOS hat die gleiche 
Wirkung wie die Unterbrechung der ROM 
Select-Leitung. Programme wie Profi-Painter 
laufen nun ohne Änderungen. 


"Tip zur Selbstaufrüstung" 


Wer Geld sparen will und sich seine 


VORTEX-Erweiterungskarte von der SP64- 
Grundversion selbst hochrüsten möchte, der 
benötigt für die Version ab 256K aufwärts 
RAM-Chips der 256-KB-Baureihe wie z. B. 


NEC 41256C-15 (-15 = 150-Nanosekunden- 
Chip). Um nun beide Bankreihen der 
VORTEX-Karte je 8 Steckplätzen voll ver- 
walten zu können, wird für die zweite Bank- 
reihe ein sog. <LATCH-CHIP> = Dekodier- 
chip benötigt. Dieser Chip ist ein <HCT 373> 
z. B. von RCA mit der Bauteil-Seriennummer 


CD74HCT373E, den man sich auch selbst 
beschaffen kann. (bK.-) 


Testnachlese zu 
VDOS 2.0 von VORTEX 


Mit dem VDOS 2.0 hat VORTEX ein vorzüg- 
liches Feature für die CPC’s geschaffen: das 
muß einmal deutlich gesagt werden! Das neue 
VDOS 2.0 steht vorläufig nur den Neube- 
ziehern einer VORTEX-Floppy, oder den 
Altbesitzern per Umtausch zur Verfügung 
steht. Nach intensivem Durchtest sollte in ei- 
nigen kleineren Bereichen noch ein Feinschliff 
erfolgen und diese Version im Kundenservice 
ausgetauscht werden. Bei der Erstellung eines 
nahezu komplett neuen DOS und BIOS so in 
der "Gegend" von IMB Source-Listing ergeben 
sich fast zwangsläufig immer noch Verbesse- 
rungsmöglichkeiten. 


Die neue Möglichkeit der Einrichtung von 
nunmehr 128 Directory-Einträgen erfolgte auf 
Kosten von wertvollem Speicherplatz des TPA 
(Transient Program Aerea) und Verzicht. auf 
Komfort. Das Booten des CP/M nimmmt nun 
mehr Zeit in Anspruch und auch das soge- 
nannte <Turn-Key-System> kostet eigentlich 
mehr Zeit, als es für den Durchschnittsuser an 
Nutzen stiftet. Dafür kann man damit jetzt 
direkt beim Booten auf Betriebssystemebene 
springen und von einem in einem <Hello.Bas- 
File> abgelegten Autostarter in ein bestimmtes 
Programm springen. Bei jedem Bootvorgang 
sucht das DOS-Programm auf der Systemspur 
zunächst nach dem Inhalt des <Hello.Bas-File> 
- auch dann, wenn er gar nicht benötigt wird. 


(bk.-) 


10/20 MB Hardisk für den CPC 


Die auf der auf der AMSTRAD-Messe in 
London, der AMSTRAD-Messe in Paris und 
der Messe in Frankfurt im Januar diese Jahres 
von Vortex vorgestellten Festplattenlaufwerke 
mit 10 bezw. 20 Megabyte Speicherplatz sind 
nun lieferbar. Sie werden aber sicher nicht für 
jedermann erschwinglich sein:: 2680 DM (10- 
MB-Version) bezw. 3280 DM (20-MB-Ver- 
sion). 


Tips & Tricks zur vortex 
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VORTEX HD 64-180 KARTE 


Die neue VORTEX RAM-Erweiterungskarte 
für den CPC 6128 wie wir sie in 
SCHNEIDER-aktiv Heft 2/86 ankündigten 
haben wir in ihrer endgültigen Version leider 
erst nach Redaktionsschluß erhalten. Wir 
werden diese im nächsten Heft ausgiebig 
abhandeln. Zur Erinnerung: Der CPC 6128 
wird hiermit salonfähig und kann mit dieser 
Karte auf 1 MB aufgerüstet werden. Die neue 
Speichererweiterungskarte ist mit dem neuen 
schnellen HD64180 Coprozessor von Hitachi 
ausgestattet, nach dem die Karte auch benannt 
ist: Die HD 64-180-VORTEX-Karte wird in 2 
Versionen 64K und 256K angeboten, die bis 1 
Megabyte RAM-Speicher bzw. RAM-Floppy 
aufrüstbar sind und über zwei DMA-Kanäle 
zum direkten Speicherzugriff verfügen. Der 
Kanal O0 ist für schnellen Datentransfer im 
Speicher (Memory-Transfers im ’Burst-’ oder 
im ’Cycle-Steal-Modus’ mit einer RAM- to 


RAM-Transfergeschwindigkeit bis 1 Mega- 
Baud) und für die internen seriellen 
Schnittstellen und Kanal 1 für schnelle 


Speicher-I/O-Transfers konzipiert. 


Außerdem kann die HD 64-180-VORTEX- 
Karte von Haus aus externes ROM-Memories 
von 16KByte bis 128 KByte in einem 
Steckplatz aufnehmen. 


Optionen gegen Aufpreis: (jeweils mit Software) 


- 2 RS232-Vollduplex-Schnittstellen 

- ] High-Speed-RS232-Schnittstelle 
(Simplex- oder Halbduplex) 

- 1 16-Bit-Parallel-Schnittstelle 
(bitweise programmierbar) 

- 1 8-Bit AD/DA-Konverter 


Vortex-Speichererweiterung 
jetzt abschaltbar 


Besitzer einer vortex Speichererweiterung 
waren oft enttäuscht wenn normale CPC- 
Programme, die keine Speichererweiterung 
benötigen zusammen mit der Speichererwei- 
terung nicht mehr liefen. Nun ist das anders: 
Es gibt eine neue Vortex VDOS-Version, die 
einen IDISBOS befehl ghat, mit dem software- 
mäßig für derartige Programme die Speicher- 
erweiterung abgeschaltet werden kann. Mit 
diesem Befehl werden die von der Vortex 
Speichererweiterung belegten 4KB wieder frei, 
sodaß derartige Programme wie z.B. das 
C.A.D. 464 nun betrieben werden können 
ohne die Speichererweiterung ausbauen zu 
müssen. Ein wirklich nutzlicher Befehl, über 
den sich die vortex Speichererweiterungs- 
besitzer sicher freuen. 


| 
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Immer wieder erreichen uns Anfragen ob die 
vortex RAM-Erweiterungskarte (64K und 
512K) nur für den CPC 464 lieferbar ist. Wir 
haben bereits berichtet und wiederholen es an 
dieser Stelle, daß bereits seit Dezember 1985 
diese Speichererweiterungen auch für den 
CPC-664 erhältlich sind. Allerdings gibt es das 
Firmware-ROM für die vortex CPC 664- 
Speichererweiterung zunächst ohne erweiterte 
BASIC-Funktionen. Das Firmware-ROM mit 
erweiterten BASIC-Funktionen ist für das 
erste Quartal 1986 angekündigt und kann. 
nachbestellt werden. 


3,5" Diskettenlaufwerk im Test 


Das in SCHNEIDER-aktiv Heft 2/86 
vorgestellte neue VORTEX-Diskettenlauf- 
werke im 3.5"-Format mit 708 Kilobyte pro 
Laufwerk haben wir in der Version als 
Doppelfloppy getestet. Das Laufwerk ist in 
zwei Varianten zu bekommen: 

- als Single-Station zum Preis von 998 DM 

- als Doppelfloppy zum Preis von 1498 DM 


Gegenüber den bekannten 5,25" Laufwerken 
sind die 3.5"-Laufwerke um einiges billiger. 
Die 5,25" Versionen bleiben nach wie vor auf 
dem Markt - bieten sie doch den Vorteil der 
Verwendung billiger Disketten. 


Angeschlossen werden die 3,5" Laufwerke wie 
die 5,25" Laufwerke über den vortex- 
Controller. Dieser kann nun auch einzeln 
bezogen werden. Die Laufwerke sind für alle 
drei CPC-Computer 464, 664 und 6128 
lieferbar. 


Testergebnis: Wir haben nicht viel zu sagen, 
die 3,5" Doppelfloppy arbeitete von Anfang an 
ohne Probleme einwandfrei. Die 3,5" Disketten 
sind gängige Disketten, wie sie inzwischen 
schon von allen großen Computerherstellern 
eingesetzt werden und sind ebenso problemlos 
wie die 3" Diskette nur eben zum halben Preis 
bei einer mehrfachen Speicherkapazität 
erhältlich. Bestechend fanden wir, die 
Ausmaße dieser Mini-Doppelfloppy - kaum 
größer als das normale DDI Laufwerk. 
Insgesamt gesehen bleibt es nach unserer 
Meinung abzuwarten inwieweit die 3,5" 
Floppy das 5,25" Floppys verdrängt. 


Vergleich 100KB Speicher kosten bei: 
3: 2,40 DM 


3,5": 1,10 DM 
5,25": 0,70 DM 


Schneide, 


Tg | -Bok 


PREIS pro Kassette 14,90 DM 


uf 3" " DISKETTE 24,90 DM 


- Weg mit dem Listschutz au dem CPC - Sprungtabellen für Basic-Programme MM - Roboter steuern 
- Spekulieren mit dem CPC - Komfortable Diskettenbefehle = == - Kreditvergleich 
Bm - Druckerausgabe umgeleitet - Transferprogramm 


- Druckertreiber für den CPC 464 
- Wie alt werde ich 
m - Kassetten- Analyse Programm - Datei-Informations und Copier-System 
- Kuchendiagramme 2 u - RAM-Editor (Hex-Monitor) 


- Basic > XREF - DATA-Zeilengenerator - TURBO-SCREEN 


- Silvestermenue - Vokabeltrainer - TRANS COPY 2000 
- Tast-Def - Kalender - SFORMAT.COM - "DATABANK" 
- Rec, Save, Load - Prognose - Firmware CPC und CP/M - Drucker laufen lernen 
- Ronny’s Maze - SYMBOL MANAGER - Griech. Zeichensatz 


- TURBO-CIRCLE 
- FAST-LADER - RSX-BEFEHLE 
- SCREEN-SWAP - DREIECKE FÜLLEN 


- GRAFIX - ZAHLEN SCHIEBEN 
- SCHIFFE VERSENKEN - SPACE SHUTTLE 
SORT 


zuzüglich 4,- DM Porto und Verpackung. 
Versand nur gegen Vorausscheck oder Zahlung mit Briefmarken 
Bestellen Sie bitte direkt beim Verlag. Bitte keine telefonischen Bestellungen. 


SCHNEIDER-aktiv SOFT-BOX-Service 
Postfach 1201 
8540 SCHWABACH 


25 SOFT-BOX-SERVICE 


N RICHARD 


AEINRICH 


& SOHN Sf 


Winnender Str. 25 7054 Korb-Tel. 32513 


m) COMPUTER DIVISION 


Ihr Fachhändler 


8170 Bad Tölz - Marktstr. 38 - Tel. 08041/9739 


Tel: 08543/880 
Tel: 08542/7866 


Aidenbach 
Ortenburg 


STAUBSCHUTZ_ist wichtig! 
Hauben aus reißfestem, weichen Kunstleder für alle 
Computer, Drucker, Floppy’s, Monitore ... 


z.B.: für CPC 464 + Monitor zusammen DM 30,-- 
Info mit Materialmuster 80 Pfg-Briefmarken 
Händleranfragen erwünscht! 


B.V. Steponaitis, Obere Str. 30, 8720 Schweinfurt 


ERNST TAUBENBERGER 
COMP + * 


ie “SOFT Weißenburger Straße 25 - 8900 Augsburg 


Software 


Händlerangebote erwünscht 


Softwareautoren gesucht 


Ihr kompetenter, autorisierter 
SCHNEIDER-Fachhändler 


COMPUTER GMBH 
7480 Sigmaringen-Rapp-Gässle-Tel 075 71/12483 
Hard- u. Software - Peripherie - Literatur 


Computer-Shop 
Expert GRAHLE 


7980 Ravensburg 
Obere Breite Str. 40 Telefon 0751/15955 


DATALOGIC 
COMPUTERSYSTEME 
SCHNEIDER ERWEITERUNGEN 
VORTEX ER 

DATA MEDIA 

INFOS gegen DM 2.40 SERVICE 
CALENBERGER STR. 26 

3000 HANNOVER 1 

TEL.: 0511 - 32 64 89 


Ihr kompetenter, autorisierter 


=) Schneider - -Fachhändler 


CONPUTER DiviSIOn 


Hard- u. Software, Peripherie, Literatur 
Fachkundige Beratung - kompletter Service 


_ 7700 Singen, Freibühlstraße 21-25, Tel. 0 77 31/8 20 20 


ALLES FÜR DEN CPC 
*Beratung*Hardware*Software*Service 


«Cebulj 


FUNK + FERNSEHTECHNIK 


8939 Bad Wörishofen 
Weiherweg 4 - Tel. 08247/2171 


A+C Vertrieb, 1 Berlin 44, Emser Str. 18 


Ks COMPUTEREIW C 


Li Hardware 


„alles für die Schneider-Computer! 


Lomputer lerginal 
evertz 

‚Schneider 

* COMPUTER DiViSInN 


Software 


u LONPUTER DILISION Literatur 
1 Berlin 44, Karl-Marx Str. 243 030-6841098 


Woltermann - Electronic 


Computer - Datentechnik FÜ 


um Grat-Agott-Platz 


Ihr Fachhändler für Schneider-Computer 
Telefon 0213707 37 


Gute Beratung ; qualifizierter Service 
Große Auswahl an Zubehör und Fachliteratur 


3414 Hardegsen / Solling Lange Str.27 Tel. 05505/1694 


65 biS 
Königsallee 2 6 


4000 Düssel 


Computer Reschke GmbH 


ER 


Hohe Str. 2la - 4600 Dortmund | Be 
BTX 92 15 09 Ruf 0231/16 00 14 a = sg 

Wir führen Schneider 4796 Salzkotten/W 5 d 2 [ee] 

und Zubehör Ri: & = 

eigener 48 Std. Service für alle Home-Computer und Lange Straße 27-29 5 a R = 


Zubehör 


IHR Computerfachhändler im Raum Koblenz/ 
Bonn/Neuwied 
Wir verkaufen nicht nur, sondern wir beraten Sie ausführlich. 


"BrTE ME” COMPUTERSYSTEME 


Hardware-Software-Literatur-Zubehör zu Bombenpreisen 
für den Schneider und andere Systeme 
Preisliste anfordern 


Unsere Werkstatt paßt bereits vorhandene Hardware an. 
Interessante Konditionen für Schüler, Schulen und Sammel - 


besteller. Fordern Sie unsere Preisliste an 


IRP - COMPUTERSYSTEME - KLEPPER 
Wilhelmstraße 27 - 5461 St. Katharınen - Telefon 02645/7540 


WILHELMSTRASS 7 
5240 BETZDORF/SIEG 
TEL. 02741 - 23537 & 23107 


Modulare Software . B 
für alle Schneider Rechner 
CPC 464, CPC 664, CPC 6128 Y 


Computer u. Bürotechnik 
Dipl.-Ing. Neuderth 
Frankfurter Straße 23 / Ecke Friedensplatz 


R-INFO 


.. Textverarbeitung... Kassenbuch- hard-&software 

führung... Rechnungsschreibung... Ch. Schebesta & Partner 

Kundenadressverwaltung... Mailmerge Frankfurter Str. 70, 6078 Neu-Isenburg 6090 Rüsselsheim 
.. Hotelreservierung... Telefon 06102 / 37549 . 


Beratung+Software+Hardware+Programmierung 


Tel. 06142 - 6 84 55 


Beratung, Schulung, Programmierung, Software der Marken 
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COMPUTER 
CENTER 


mca CC, Sindelfinger Allee 1, 7030 Böblingen, 07031/223618 


z 
m 
S 
iu 
N 
r 
= 
= 
wu 
er 
£ 
& 
x 


Kleinanzeigen 


(Bestellschein s.Seite 29) 


BEER ERÜIE HERE NEISSE SEI RRENIEREHREHIEIBEISEISEISEHREREREIENIEBBEIGE3 IIEBSEISENSE 


Das CPC-Programm für echte Börsengewinne. Diskette nur 
485,- DM/SFr. Beschreibung ‘ca02‘ anfordern bei: 

Töngi Computer-Praxis, Aspeltstr.4, D-6500 Mainz. 

für die Schweiz: Denton Consultants AG, Auwisstr. 17, 
CH-8127 Forch/Zürich. 


EEE HEREREFFE HERE FF 


VERK. CPC 464, DD1, NLQ 401, TexPack, TURBO 
PASCAL, compl. 2.200 DM, CPC 664 1200,-; Tel. 
09131/25873 


KRREREELEEE NER EEE RER ER DEREN DEREN RURCRE, 


RRRSRSOOCH Professionelles Astrologie-Programm********* 


5 Seiten Persönlichkeitsanalyse + Grafik + Aspekt 
B.Schuhmacher 


Karl Zeiss Str. 14 
3200 Hildesheim 
Tel. 05121/23646 
EEE EEEFESEEEEEEEEFFFEFFF FF FF 22 


SÄMTL. CPC-BÜCHER V. DATABECKER FÜR 50% 
LADENPREIS + PORTO, ALLE BüCHER LADENNEU, 
H-J.KROLL, AN DER KOPPE 73c 1/20 TEL.(030)3335432 


EEE LEFFFEEEFFEFERER IE 


CPC464 LOTTO-STATISTIK 6/49* 


Wollten Sie nicht schon immer alle Ziehungen im Lotto 
untersuchen? Z.B. feststellen, welche Gewinnklassen Sie 
errreicht hätten, wenn Sie von Anfang an (1955) gespielt 
hätten? Oder Ihr System einem Realtest unterziehen? Mit 
diesem Programm kein Problem: Ergebnis mit Gewähr in 12 
sec (MC) ! Kass. 45,-- (E-Scheck oder +NN) Prg. kopiert 
sich auf Disc! Info: 1,-- Briefm. Günter Blatt 5509 
Schillingen 


EEE EEE FF EFEEFFFFF FREE FF 


Suche Grünmonitor GT65-Tausche mit original dBasell 
Klimmig 07841/61140 ab 18 Uhr 07842/3248 


KRRRERRERREEERERTENE NER TREE SR HR HR DE IR I IR TR RERIR SEA 


Preisgünstige Software aus Eigenentwicklung für alle 
Schneider-CPC-Computer enhalten Sie bei Friedrich 
Neuper Postfach 72, 8473 Pfreimd. Einfach Gratisinfo 
anfordern. 


KRERRRAEEREEETR TRENNT TEE HR DRIN DR RC RER IR NR IR RER EIN HR IR RERE RUHR 


V24 Interface 

O Zweifach V24/RS232 mit DC/DC 
O Mit Z80A-DART, Timer 8253 

O Für alle CPC. Maße 118x62x26 mm 
O Preis: ab DM 248,- incl. MwSt. 
Gundermann Mikroelektronik 
Lessingstraße 7 Tel.: 06227/52394 
6837 St. Leon-Rot 


BEEFEEFEPEEFEEFEFFEEEFEFF EFF FF FF FF 520302 


REREHERCERENE I RR MENU MR NINE DENE NE IR IR NER IR DR NE IR NER RENNER RER RE 


Schneider CPC 464 Flugtraining Boeing-727 Simulator. 
Dieses Programm ist zur Anfänger- und Instrumentenflug- 
Schulung geeignet. Detaillierte Auswertung der Flüge. 
Kassette 34 DM 

Info gegen Rückporto. 

Fluging. F. Jahnke, Am Berge 1 

3344 Flötho 1, Tel.: 05341/91618 


BERRIR IRRE IRRE DIE IN DOE AA DIN DIE AIR IIE DIE ION DIE IE DIE BORN DIR BOEDIR DIE ARE DIR DOE IR DIE RE DIE DEI DE 


Suche für Schneider CPC 464, 664 oder 6128 eine Bezugs- 
quelle für ein Programm, mit dem man Kreuzworträtzel 
erstellen kann. Wer kann mir helfen? Chiffre 018601 


EREREEEEEEE EEE ER RI DIR DIR IR IR IR I KR IR EHRE NEE TA RERE 


Notenverwaltung für die Schule! Berechnet Schnitt, Noten 
mit Wichtung, Noten und Klasssenlisten, Zeugnisnoten, 
Druck und Bildschirmausgabe. Unkostenbeitr. 50 DM 
Cass/Disc (Disc einsenden) 

Info (Freiumschlag): 

C. Berhold Rommelstr. 31 - 8783 Hammelburg 2 


BERELEEPEEPEEPEEFEEFEEEIHEFFFFE FF FF 222 


Wer hat vor dem 31.1.86 ein Data-Media Diskettenlaufwerk 
geliefert bekommen? Wer hat ein Diskettenlaufwerk bezahlt 
aber nicht erhalten? Bitte melden Chiffre 038601 


IRRE IR IR SEE DIE N DIE DOC IRN BOX DIE ION DE DDR DIR DIL DIR DIT DIE PO DIE POL OR IIE DIE IR DEE BIER DEE REIN 3 DE RERUE 


Handbuch für Datenfernübertragung mit vielen Tricks 
gegen Unkosten Info 80 Pf Leonhardt Auf der Reide 39, 
4 Düsseldorf 


KRRRRRERTERER RECHRNE NE RR DR IR NE DR N NR RR NR HERR ERERR ARE 


SCHNEIDERN-aktiv sucht aktive Mitarbeiter im Raum 
SCHWABACH, FÜRTH, NÜRNBERG, ERLANGEN. Bitte 
schreiben Sie unter dem Stichwort "Mitarbeiter". Wir haben 
auch noch Lehrstellen frei. 


KERLE EEE EEE EL COLE ELBE ROLE REE RR D RERERERE 


Schneider CPC 664/6128 Steuerberatungssoftware. Nur für 
steuerliche Berufe! Information bei CONCEPTION GmbH, 
2 Hamburg 61, Hubertusweg 14 anfordern. 


ER RKIR HR REIN NIE IR IUR DIE DL DIE DOPDEL DIE DIX DE DORDRE DEE OR DIL POL DIR DIE DIE DUR DIR POL DIE DEE RE BEE RE RE RUHR RE 


CPC 464, grün, neu zum Sensationspreis von DM 699,- alle 
anderen Schneider Computer ähnlich günstig siehe Anzeige 
in diesem Heft - RITZLER - Softwareagentur 


BERNER RTL REEL IN IN BEREIT INN DEE DIE DOE DIE RE IRT DIN DIE DON DIE DOE POE RE DIR DIR RE OE RE DIE DOC 


464/664/6128 Biorhytm.: Partnervergleich + 1 S. A4 Krit. 
Tage+Grafik+vieles mehr!!! T.Schumacher, Ritterstraße 54, 
2120 Lüneburg Tel. 04131/49880 


BRRRRERTIR ER IR REITER IR RN NIE RR ARE HIER DIN DR DSL REIN DIN DIE DIE DOC DREIER DR DIN DIE DREI DIE I DER 


CPC 464 LOHN- und EINKOMMENSSTEUER 

Super Jahresausgleich, Steuerklassenwahl, 
Monatslohnsteuer, zusammen auf Kassette 60,- DM. 
Jährliche Aktualisierung ohne Neukauf! 

Info gegen Rückporto: Horst Ilchen, Niederfelderstr. 44, 
8072 Manching Telefon 08459/1669 


WEREIR RR E IK HR INNERN IR REIN AI RUHR IR HERR RE DRIN HEREIN NE RU RR RE RUIR RUHR RURE RR REINE 


kti 


Bestellschein für Kleinanzeigen 


Ich bitte um Veröffentlichung folgender Anzeige in der nächsten Ausgabe von 
SCHNEIDERN-aktiv: 


Die Anzeige soll O 1mal O 2mal O 3mal hintereinander erscheinen 
O private O gewerbliche Kleinanzeige 
Jede angefangene Zeile kostet für private Anzeigen 5,- DM incl. MWST und für gewerbliche 
Anzeigen 7,- DM zuzüglich MWST (=7,98 DM). Senden Sie den Betrag in Briefmarken bezw. mit 
einem Scheck zusammen mit dem Kleinanzeigentext an: 
Verlag COMPUTER-aktiv 
Postfach 1201 
8540 SCHWABACH 


Achtung: Chiffre-Anzeigen werden nicht mehr entgegengenommen 


Vorname/Zuname - Firma 
Straße/Hausnummer 
Postleitzahl/Ort 


Datum Unterschrift 


Y 
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Die nachstehenden cobolspezifischen Form- 
vorschriften sind für die Programmierung 


-(Programmeditierung des Quellcodes) von 


absoluter Bedeutung und zwingend, wenn man 
einen fehlerhaften Compilerlauf anstrebt. Die 
Cobolregeln sind so starr und zwingend, daß 
z.B. ein Punkt oder Space (Leerzeichen) zur 
Unzeit angegeben oder vergessen einen ganzen 
"Rattenschwanz" von sog. Folgefehlern im 
compilierten Objectcode verursachen kann.Da 
sich die Fehlersuche nach Länge des Pro- 
gramms als "Streß" erweist, ist Disziplin und 
Konzentration beim Programmieren ebenso 
gefragt, wie die Verwendung eines Cobol- 
formulars zur Programmerstellung (s. Muster- 
blatt und Formblatt für Bildschirmaufbau). 
Wieso man auch für den Aufbau jedes einzel- 
nen Bildschirmdisplays - ob Menue oder Ein- 
gabefelder - einen Lageplan braucht werdet 
Ihr bald sehen. Alle 25 Zeilen je 80 Spalten 
getrennt, ob dort feststehende Texte stehen, 
nachfolgende Eingabefelder oder Spaces bis 
zum Zeilenende folgen, sind ganz genau nach 
"Adam Riese" auszuzählen und in der sog. 
<Picture-Beschreibung> Zeichen für Zeichen 
unterschieden nach alphanumerischen, nume- 
rischen, alphabetischen, Blank- (=Space), oder 
Zero-Zeichen zu definieren. Das Codier- 
formular hat Zeilen mit insgesamt 80 Spalten, 
wovon maximal 72 Spalten für Programmier- 
text zur Verfügung stehen. Jede Zeile ist in 
bestimmte, festgelegte Bereiche von Spalten 
aufgeteilt. 


Für die Bildschirmmaske gibt's beim 
SCHNEIDER CPC noch eine Besonderheit: In 
der 25. Zeile darf das letzte Zeichen in Spalte 
80 nicht beschrieben sein, auch nicht mit 
Blanks, weil sonst der Bildschirm entgegen 
anderen Rechnern automatisch hochscrollt. Da 
aber die meisten Rechner ohnehin nur 24 
Bildschirmzeilen haben und unsere Programme 
wegen der gegebenen Lauffähigkeit der Quell- 
codes auch auf anderen Rechnern möglichst 
vielseitig kompatibel sein sollten, ist es am 
geschicktesten, nur die Zeilen bis incl. Spalte 
80 der 24. Zeile zu benutzen. Ansonsten muß 
man nämlich bei der am COBOL-Programm- 
anfang notwendigen Festlegung der Zeilen- 
länge dann mit einer zweiten, um ein Zeichen 
kürzeren arbeiten. 


Spalte I bis 6: 


Die Spalten I bis 6 des Codierblattes sind für 
die fortlaufende Zeilennumerierung beim Edi- 
tieren des Programms reserviert. Allerdings ist 
diese Numerierung nicht zwingend, auch ein 
Quellprogramm ohne Zeilennummern wird 
vom Compiler anstandslos verarbeitet. Den- 


- __CPC 464/664/6128 


COBOL 


I. Das formale COBOL Programmschema 


Programmieren in COBOL 


el 


och ist diese Numerierung sinnvoll, denn wer 
will schon bei Fehlermeldungen in Zeile "XY" 
erst alle Zeilen durchzählen? 


Spalte 7: 


Mit Einträgen in die Spalte 7 werden be- 
stimmte Steuersignale gesetzt. So bewirkt ein 
Sternzeichen (*), daß die gesamte nach- 
folgende Zeile als Kommentar betrachtet und 
vom Compiler unberücksichtigt gelassen wird. 
Das dadurch mögliche "Aussternen" von be- 
stimmten Zeilen hilft so manchmal bei der 
Eingrenzung von Fehlern bei der Fehlersuche. 
Ein Divisionszeichen (/) veranlaßt den 
Drucker beim Ausdrucken des Quellpro- 
gramms bzw. beim Compilieren des Pro- 
gramms mit gleichzeitigem Ausdruck eines 
Programmprotokolls ab Standort dieses Zei- 
chen einen Seitenvorschub zum Blattanfang 
der nächsten Blattseite vorzunehmen. Ein 
Bindestrich (-) schließlich hat die Bewandnis, 
daß nichtnumerische Konstanten (z.B. Texte), 
die nicht in eine Zeile des Codierblattes 
passen, als zugehörig zur vorhergehenden 
Zeile angesehen werden. 


Spalte 8 bis 72: 


Dieser Platz des Codierblatts beheimatet die 
eigentlichen COBOL-Befehle. COBOL-Anwei- 
sungen, die über Spalte 72 hinausschießen, 
sind in der nächsten Zeile ab Spalte 12 
fortzusetzen, oder, falls als Textkonstante 
zusammengehörig, in Spalte 7 der Folgezeile 
mit Bindestrich markieren. Eine Teilung einer 
COBOL-Anweisung (Zeilentrennung) muß am 
Ende eines vollen Wortes erfolgen. Der Be- 
reich zwischen den Spalten 8 und 72 wird in 
zwei Zonen aufgeteilt: 


1) Die A-Zone: 


Die Spalten 8 bis ll nennt man den sog. A- 
Bereich. Die Spalte 8 ist dabei der (linke) A- 
Rand. Alle sog. <DIVISION->, <SECTION->, 
<PARAGRAPH>-Namen sowie <FD-Be- 
schreibungen> (=File-Deskriptions), alle <OI- 
er-Stufen> und <77-er-Stufen> sowie sonstige 
Überschriften beginnen zwingend in der 
Spalte 8. 


2) Die B-Zone: 


Die Spalte 12 bis 72 bezeichnet man als sog. 
B-Bereich. Dabei ist die Spalte 12 konse- 
quenterweise der (linke) B-Rand. Auf Spalte 
12 beginnen alle COBOL-Anweisungen, die 
keine der oben für die A-Zone beschriebene 
Titel-Funktion (DIVISION, SECTION, 
PARAGRAPH, etc.) innehaben. Die genauen 
COBOL-Regeln im Gebrauch des A- bzw. B- 


CPC 464/664/6128 Schneider/ 
akti 


Randes werden später noch hinreichend 
anhand von Beispielen erläutert. Auch die 
anderen "Fremdworte" werden. alsbald noch 
erklärt. 


Spalte 73 bis 80: 


In diesem Bereich legt der Programmierer 
ausschließlich seine Kommentare für die 
Programmdokumentation ab. Für Program- 
mieranweisungen ist dieser Teil der Co- 
dierblatt-Zeilen absolut tabu! 


II. Die Zeichen der COBOL-Sprache 


In einem COBOL-Programm sind ausschließ- 
lich nachstehende Zeichen zu verwenden, die 
in verschiedene, auf ihre Anwendung hin 
bezogene Zeichen-Klassen unterteilt sind : 


1) Für Cobol-Worte und Namen : 


0 bis 9 Dezimalziffern 
A bis Z Buchstaben (nur Großschreibung!) 
Bindestrich 


2) Für Interpunktion : 


" Anführungszeichen 
’° Hochkomma, Apostroph 
( Klammer offen 
) Klammer zu 
. Punkt 
‚Komma 
: Semikolon 
u Leertaste, Space oder Blank 


",," 


Kommentar: Das Zeichen "u" sieht wie ein 


oben offenes Rechteck aus! 
3) In arithmetischen Ausdrücken : 


+ Addition 
Subtraktion 
* Multiplikation 
/ Division 

** Potenzieren 


4) Bei Vergleichsoperationen : 


größer als 
kleiner als 


1 A V 


Ha -Nr. 


Codierblatt 


Datum Programm-Bezeichnung 


Anstelle dieser Zeichen können auch die 
COBOL-Wörter GREATER THAN, LESS: 
THAN und EQUAL TO verwendet werden. 
Das z.B. unter BASIC übliche Zeichen "<>" für 
"Ungleich" ist unter COBOL nicht bei allen 
‚Systemen erlaubt.Hier ist dann der COBOL- 
‚Begriff "NOT =" (Beispiel: IF A IS NOT = 
ZERO) zu verwenden! 


5) Als Druckaufbereitungszeichen : 


$ Währungszeichen (Dollar!) 

* Schecksicherungszeichen 

. Punkt zur Darstellung des Dezimalpunktes 
Komma 


Nullenunterdrückungszeichen 
Einfügungsbefehl für Blancs (Leerzeichen) 
Einfügungsbefehl für Nullen 

positives Vorzeichen 

negatives Vorzeichen 

CR Creditoren-Zeichen 

DB Debitoren-Zeichen 


’ 


ı+ouUN 


Alle vorbeschriebenen Zeichen unterliegen 
genau festgelegten, speziellen Anwendungs- 
bedingungen, welche zu gegebener Zeit näher 
beschrieben werden. 


III. Die COBOL-Wörter und Programmierer- 
Wörter 


Ein COBOL-Compiler ist derart gestaltet, daß 
er das COBOL-Quelldeck, das den ge- 
wünschten Ablauf darstellt, anhand von 
mnemotechnischen Schlüsselwörtern versteht 
und daraus das für den Rechner direkt ver- 
ständliche Maschinenprogramm (=Objectcode) 
erstellt. Um spezielle Anweisungen zu sig- 
‚nalisieren, muß der Programmierer die in der 
COBOL-Sprache definierten Wörter, die aus- 
schließlich dafür reserviert sind und benutzt 
werden dürfen, verwenden. Auch die Schreib- 
weise (in COBOL wird grundsätzlich alles 
groß geschrieben!), z. B. ob mit Bindestrich, 
bzw. Blank zwischen zwei Worten, oder ohne, 
ist genau einzuhalten! 


1) Die COBOL-Schlüsselwörter 


Die Schlüsselwörter definieren eine bestimmte 
Verarbeitungsanweisung wie z.B. <ADD> 
(=addiere), oder <DISPLAY> (=drucke/Print). 


Programmierer Seite 


049......| DENT Ca ATIO DIV SION ler er en | 11 ılı ER en 3 TORE BES GER RT TERN EN | 
D F Ö. PROGIR „Fu niR 5 D) AR | Leser 2 Sir 1 ee ep pe ee 
83.0....| AUTHOR . 20 ACH RT EGEE er 
DT B: [N ALLA ON SCHNEIDER- m I SEE U TS BB IR] BERTER: BERTORE LAN LES Ber EA IM N BET E LEE BEN REITEN 
050 11..| DA P= u IN 95 01/Bi6 | Bere ee al erga Li pls je 1 | Lt I DE GAREN RER | anne BE SER ERBEN Lt 
060 .:.0.:| DA El= COMP v Od BE... L | I ı ji 1 | ı LL.L | N RER TEREN VEER | hund N DEREN BEER EEE 3 TEEN ES TER TEREES EEE WERE 
9,2.9:....| SECURITN _,, FRE I Een 
Erz Yyazpılı fe et | I Ge Se ee eh er ee | TEHEEN EEE VEREE RBEN 
Feel bog ep gr pe a Se N le 5 ie or ra b 
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NEU * CPC ANWENDERSOFTWARE CPC * NEU 


@ Wärme-64/CPC, warmebedarf DIN 4701. 


mit K-Zahl-Berechnung DIN 4108. kompl. Ausdruck ab DM 69,- 
® Rohrnetz-Berechnung, 2-Rohr. Zeta-Wert abDM 99,- 
®@ Paketpreis Wärme + Rohrnetz DM 149,- 
@ Zins- + Immobilien-Programm m. Ausdruck abDM 29,- 
© Lohn- + EKST-Programm m. Ausdruck ab DM 39,- 
@ Vereinsverwaltung - Faktura - Kassenbuch jeabDM 59,- 
© Multidatei ab DM 59,- @ CPC-BUG 
® Multitext ab DM 79,- Monitorprogramm DM 59,- 
© Wordstar CPC/Joyce DM 199,- @ CPC-TERM 
© dBase CPC/Joyce DM 199,- Termmalprogramm u 129,- 


@ Multiplan CPC/Joyce DM 199,- 
@ Mutti Vokabel ab DM 49,- ® Dataphon S21d DM 298,- 
@ Spiele ab DM 9,90 - 4 Super-Spiele auf 1 Disc: 
Nibblex, Money Molch, Pongo u. Time nur DM 89,- 
@ Disketten 3” 5 Sıck. 67,— 10 Stck. 128,— 5'/4” 10 Sıck. 34,90 
Alle Preise incl. MWST zzgl. NN + Porto, ab DM 150.— Porto u. Verp. frei 
WHS HINDERER - TECHNISCHE SOFTWARE 07127/5414 
7447 AICHTAL, HOHENZOLLERNSTR. 9 - bis 20 Uhr - 


DIE CPC SOFTPARADE 


DATENREM 2.0 die Dateiverwaltung 
für fast alle Anwendungen durch 
flexible Ein- und Ausgabemasken. 
D 78,- C 68,- DM 


FAKTUREM Rechnungen mit System und 
individuellen Eingabemöglichkeiten 
D 68,- C 58,- DM 


BANKCOMP den Zinsen auf der Spur 
Hypotheken, Darlehen, Sparen etc. 
D 38,- C 28,- DM 


FIBUCOMP plus komfortable Ein- 
nahmen - Ausgaben Buchführung mit 
40 definierbaren Konten, 99999 
Buchungen und Bilanzausdruck. 
D 89,- C 78,- DM 


ETATGRAF Ausgabenverwaltung mit 
Balken- und Kurvengrafik. Auch 
ideal als Haushaltsbuchführung. 
D 58,- C 48,- DM 


Weitere Programme: 


LAGDAT Lagerdatei D 68,- C 58,- DM 
FAKTUCOMP Rechnung+Lager D 98,- DM 


TEXTCOMP für FX 80 D 78,- DM 
PCM Entscheidungshilfe C 28,- DM 
VOKABI Vokabeltrainer C 48,- DM 
MATHE Grundrechnen C 18,- DM 
BIORYTHMUS Kurven C 18,- DM 


Weiter Info in der CPC-Liste 


Elfriede VAN DER ZALM - SOFTWARE 
Programm Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3 
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Reservierte COBOL-Schlüsselwörter (COBOL-ANS74) 


ACCEPT 
ADD 


BEGINNING 
BLOCK-DENSITY 
CARD-PUNCHER 
CF 
CHARACTERS 
CLASS 

COBOL 

COMMA 

COMP-2 
COMPUTATIONAL-1 
COMPUTE 
CONTAINS 
CORR(ESPONDING) 
CURRENCY 
CYLINGER-OFLO 
DATE-COMPILED 
DECIMAL-POINT 
DESCENDING 
DIRECT 

DISPLAY 
DIVISION 

ELSE 

ENTRY 

ERROR 

EXHIBIT 

FD 

FILE-LIMIT 
FIRST 
FORM-OVERFLOW 
GIVING 

GROUP 

HOLD 

IF 

INDEX 

INITIATE 
INSTALLATION 
1-0 

JUST(IFIED) 
LAST 

LESS 

LINE(S) 
LOCATION 
LOW-VALUE(S) 
MODE 


OF 


PLUS 
PRINTER 
PROCEEB 
PROGRAM-ID 
QUOTE(S) 
RD 

READY 
REDEFINES 
RELEASE 
REPLACING 
RERUN 
RESTRICTED 
REWIND 


SECURITY 
SELECT 

SET 

SIZE 
SOURCE-COMPUTER 
STANDARD 
SUBTRACT 
SYNC(HRONIZED) 
SYSLST 
SYSPUNCH 
TERMINATE 
THROUGH 

TO 

TRACK-AREA 
TRY 
UNIT-RECORD 
UPON 

USE 


ACCESS 
ADVANCING 
ALPHABETIC 
ALTERNATE 
APPLY 
ASCENDING 
AUTHOR 
BLANK 

BY 
CARD-READER 
CH 

CHECKING 
CLOCK-UNITS 
CODE 

COMP 

COMP-3 
COMPUTATIONAL-2 
CONFIGURATION 
CONTROL(S) 
CREATING 
CURRENT-DATE 
DA 
DATE-WRITTEN 
DECLARATIVES 
DE(TAIL) 
DIRECT- ACCESS 
DISPLAY-ST 
DOWN 
ENDXING) 
ENVIRONMENT 
EVERY 

EXIT 

FILE(S) ° 
FILLER 
FOOTING 
FROM 

Go 

HEADING 

ID 

IN 

INDEXED 
INPUT 

INTO 
1-O-CONTROL 
KEY 

LEADING 
LIBRÄRY 
LINE-COUNTER 
LOCK 

MEMORY 
MODUBES 
MULTIPLE 
NEGATIVE 

NOT 
OBJECT-COMPUTER 
OH 

OPEN 
ORGANIZATION 
ov 
PAGE-COUNTER 
PH 
POSITION(ING) 
PRINT-SWITCH 
PROCESS 
PROTECTION 
RANDOM 

READ 
RECORD(S) 
REEL 
REMARKS 
REPORT(S) 
RESERVE 
RETURN 
REWRITE 
RIGHT 

SA 

SEARCH 

SEEK 
SENTENCE 
SIGN 

SORT 

SPACE(S) 
STATUS 

SUM 

SYSIN 

SYSOPT 
TALLY(ING) 
THAN 

THRU 
TODAYS-DATE 
TRACKS 


ACTUAL 
AFTER 
ALPHANUMERIC 
AN 
ARE 
ASSIGN 
BEFORE 
BLOCK 
CALL 
CBL-CTR 
CHANGED 
CHECKPOINT 
CLOSE 
COLUMN 
COMP-1 
COMPUTATIONAL 
COMPUTATIONAL-3 
CONSOLE 
COPY 
CSP 
CYCLES 
DATA 
DE 
DEPENDING 
DIGITS 
DISC 
DIVIDE 
DYNAMIC 
ENTER 
EQUAL 
EXAMINE 
EXTENDED 
FILE-CONTROL 
FINAL 
FOR 
GENERATE 
GREATER 
HIGH-VALUE(S) 
IDENTIFICATION 
INCLUDE 
INDICATE 
INPUT-OUTPUT 
INVALID 
IS 
LABEL(S) 

LEFT 
LIMIT(S) 
LINKAGE 
LOG 
MINUS 
MORE-LABELS 
MULTIPLY 
NEXT 
NOTE 
OCCURS 
OMITTED 

OPTIONAL 

OTHERWIZE 

OVERFLOW 
PERFORM 
PIC(TURE) 
POSITIVE 
PROCEDURE 
PROCESSING 
PUNCH 
RCA-SPECTRA 
READER 
RECORDING 
RELATIVE 
RENAMES 
REPORTING 
RESET 
RESERVED 
RF 
ROUNDED 
SAME 
SECTION 
SEGMENT-LIMIT 
SEQUENTIAL 
SIGNED 
SOURCE 
SPECIAL-NAMES 
STOP 
SYMBOLIC 
SYSIPT 
SYSOUT 
TAPE(S) 

THEN 
TIMES 
TRACE 
TRANSFORM 
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vortex 
Speichererweiterungen 


Der RAM Speicher auf der vortex Speichererweiterung (dieser wird der Einfachheit halber von 
nun an als externer RAM bezeichnet) kann direkt in den Adressbereich der Z80 CPU des CPC’s 
eingeblendet werden. Da die Z80 nun aber, wie die meisten 8 Bit Microprozessoren, nur einen 16 
Bit breiten Adressbus besitzt und daher immer nur 64KB direkt adressieren kann, ist der insgesamt 
verfügbare RAM (128...576KB) nicht gleichzeitig ansprechbar, sondern immer nur in Portionen 
von 64KB oder weniger. Dieses Verfahren, Speicher - die denselben Adressraum belegen - 
kontrolliert dem Gesamtsystem zuzuschalten wird als Mapping oder Bank Switching bezeichnet und 
muß immer dann eingesetzt werden, wenn der Adressraum der CPU kleiner als der Gesamtspeicher 
1St. 


Übrigens wird dieses Verfahren in allen CPC’s bereits auch ohne RAM Erweiterung schon 
eingesetzt, belegt doch z.B. das BASIC ROM dieselben Adressen wie der Bildspeicher. 
Selbstverständlich können Bildspeicher und BASIC ROM nicht gleichzeitig angesprochen werden - 
dies würde unweigerlich zu einem Buskonflikt auf dem Datenbus führen - und so sorgt das Gate 
Array über zusätzliche Steuerleitungen und über einen Konfigurationsport (7Fxx) dafür, daß 
immer nur einer der möglichen Speicher angesprochen wird. Also hier z.B. nur Bildspeicher oder 
nur BASIC ROM. Wie man also leicht einsieht, reicht die bloße Adresse nicht mehr aus, um eine 
bestimmte Speicherzelle in einem bestimmten Speicher anzusprechen. 


Der externe RAM auf der(den) vortex Karte(n) nun kann in 32KB Blöcken in den Adressraum der 
Z80 eingeblendet werden. (siehe Abbildung). Die Steuerung erfolgt hierbei über zwei Ports: 


- Bankselect/RAMCard Enable: Port FBBDH 
- Blockselect/Mapping Enable: Port 7FxxH 


Alle moeglichen RAM-Speicherbkaenke mit SP512 Eine spezielle Konfiguration: 


Interner 
Speicher 


Interner . 
Speicher 


Externer 
Speicher 


«Bank 6) 


Adressraum der Z80 CPU 


eine Bank (=64KB) 


FUNKTIONSWEISE UND STEUERUNG 
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I Definitionen: T 
mn I 
Bank: ein 64KB (=65 536 Bytes) großer Speicherbereich, der I 
den ganzen Adressraum (von 0000H bis FFFFH) der 280 I 

CPU belegt und abhängig von einem weiteren Kriterium I 
("Schalter") ein- oder ausgeblendet werden kann. I 
I 

I 

I 

I 


Block:ein 32KB (=32 768 Bytes) großer Speicherbereich. Jede 
Bank besteht aus einem unteren (Adressen 0000H...7FFFH) 
und einem oberen (Adressen 8000H...FFFFH) Block. 


HHHHHHHHH 


(1) Bankselect: FBBDH 


Die Speichererweiterung besitzt ein Bankselect-Register, in das nur geschrieben werden kann. Das 
Bankselect Register hat mit dem eigentlichen Speicherzugriff noch nichts zu tun, sondern dient 
lediglich zur Erweiterung des Adressraums der Z80. Es besitzt darüber hinaus noch gewisse 
"Schalter", um z.B. die ganze Karte erst einmal zu aktivieren. 


Die einzelnen Bits des Bankselect Registers haben folgende Bedeutung: 


Bit Bedeutung 

0-2 Bankselect - wähle eine der maximal 8 möglichen 64KB 
großen Bänke für den späteren Zugriff aus. Diese drei 
Bits erweiteren gewissermaßen den 280 Adressbus auf 
eine virtuelle Breite von 19 Bit(-->512KB). 


0-->Bank 0, 1-->Bank 1, usw. 
3 RAMCard-ROM Disable; 0O=Enable ROM 1=-Disable ROM 


4 RAM-Disable - eine 1 sperrt den Zugriff sowohl auf den 
internen als auch den externen RAM. Datenzugriff ist 
nur noch aus den ROM's möglich. Bevor man dieses Bit 
also setzt sollte man sich sicher sein, daß im 
Folgenden kein Zugriff auf den RAM notwendig ist, damit 
das Ganze kein "way of no return" wird. (Achtung: ein 
CALL nnnn benutzt auch den RAM-->Stack!). Dieses 
Steuerbit wird im Normalfall nicht benötigt und ist für 
spätere spezielle Anwendungen vorgesehen. 


5 RAMCard-RAM Disable; 0=Disable 1=Enable 
Dieses Bit ist sozusagen der "Hauptschalter" der RAM 
Karte. Wird dieses Bit nicht gesetzt, so bleibt auch 
das Mapping Bit im Port 7Fxx (siehe unten) wirkungslos: 
Die Karte kann nicht aktiviert werden. 


Dieses Steuerbit wurde speziell deshalb eingebaut, da 
es Cassettensoftware gibt - vornehmlich Spiele -, die 
einen eigenen Lader besitzen und hierbei den Gate Array 
Port benutzen. Schaltet man vor dem Laden dieser Spiele 
die RAM Karte nicht ab, so führt dies in den meisten 
Fällen zum "Absturz". 
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akt 


Normalerweise benötigt man lediglich Bit 0-2 und 5 beim Arbeiten mit der Karte. Bit 3 und 4 sind 
für spezielle Anwendungen vorgesehen und führen bei unsachgemäßer Benutzung unweigerlich 
zum "Absturz" des ganzen Rechners. 


(2) Blockselect/Mapping Enable: 7FxxH 


Der Port 7FxxH ist in allen CPC’s für die Steuerung des Gate Arrays belegt und erfüllt dabei sehr 
viele Aufgaben. Diese reichen von der Farbwahl über den Biidschirmmode bis zur ROM 
Konfiguration d.h.. bereits schon das Gate Array übernimmt gewisse Funktionen des 
Speichermappings (siehe oben). Gewisse Bits des Ports werden vom Gate Array nicht benutzt und 
werden daher für die Steuerung der RAM Erweiterung eingesetzt. 


Bit Bedeutung 

6 Blockselect - wähle den unteren oder den oberen Block 
der momentanen selektierten Bank an. 
O=unterer Block l=oberer Block 


5 Mapping Enable - eine 1 blendet den durch Bit 6 und die 
Banknummer (Bit 0-2 Port FBBDH) angew[hlten Block in 
den Adressraum der 280 ein und schaltet den 
entsprechenden Block des internen Speichers ab. 


Interrupts und vortex RAM Erweiterung 


‚Definition: Die Z80 CPU besitzt einen Steuereingang über den es von "außen" möglich ist, den 
normalen Programmablauf zu unterbrechen, um spezielle Programme durchzuführen. 


Alle CPC’s "leben" vom Interrupt. Diese etwas laxe Aussage soll zum Ausdruck bringen, ‘daß alle 
wesentlichen Steuerfunktionen der CPC’s über den Interrupt abgewickelt werden. 
Einzige Interruptquelle im CPC ohne Peripherie ist das Gate Array. Dieses fordert 300 Mal in der 
Sekunde einen Interrupt bei der Z80 an. Würde nun das Betriebssystem alle diese Interrupts ohne 
weitere Wertung bedienen, so wäre der Rechner hoffnungslos "verstopft" und nur noch damit 
beschäftigt, Interrupts zu versorgen. Aus diesem Grunde unterstützt das Betriebssystem eine 
Prioritäts- und Warteschlangen- (gqeues) Struktur, die den Programmdurchsatz der Maschine nur 
unwesentlich verringert. (siehe hierzu auch Firmware Handbuch zum CPC 464). 


Die Z80 CPU kann in drei verschiedenen Interruptmodi betrieben werden: IM 0, IM I und IM 
2. Diese unterscheiden sich durch die Art und Weise, wie die Z80 auf eine Interruptanforderung 
reagiert. In den CPC’s wird der Interruptmode 1 (IM 1) eingesetzt - dies ist zwar 
die unflexibelste Interrupt Methode der Z80, setzt aber auf der anderen Seite auch nur die 
minimalsten Anforderungen an die Hardware voraus. 


Akzeptiert die Z80 im CPC einen Interrupt, so wird das augenblicklich ablaufende 
Mikroprogramm unterbrochen und der Ablauf verzweigt zur Adresse 0038H. Hier steht nun ein 
Zeiger auf die entsprechende Routine, die den Interrupt behandeln soll. 


Dieser Zeiger nun, darf nicht unkontrolliert verändert werden, da der Rechner sonst 
augenblicklich "abstürzt. Dies ist ein Sachverhalt, den man immer im Auge behalten muß, 
wenn man selbst direkt mit der Karte arbeiten möchte, d.h. wenn man nicht auf die Software 
(BOS und CP/M Patch) zurückgreift, die mit der Karte ausgeliefert wird. So muß man 

unbedingt darauf achten, daß beim An- oder Abschalten von Speicherblöcken (oben oder 
unten) der Interrupt abgeschaltet (DI) wird und hinterher auch nicht ins "Leere" geht. 
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Setzt man die Speichererweiterung als bloßen Datenspeicher ein (d.h. das Programm läuft nie 


im externen RAM), so ist die Steuerung der 


Karte 


relativ einfach. Möchte man jedoch 


den Programmspeicher erweitern, wie dies z.B. unter CP/M der Fall ist, so muß man wesentlich 
sorgfältiger vorgehen und immer darauf achten, daß der Interrupt immer den "richtigen Weg" geht. 


Interner 
Speicher Bonk 0 
FFFFH 
(75 
RR 
COOOH Rx 
PR 
PR 
PR 
X) 
8000H 
RR 
% 
% 
% 
% 
% 
% 
REETRRRRR 
0000H [ms - scheitroutnen 


Bonk 1 


ü Track 02 
Track 01 
Trock 00 


RAM Disk: 1m64..7m64KB 


Speicherkonfiguration unter dem 62K CP/M 2.2 


Interner 


Speicher Bank 0 


BASIC ROM inten- 


oder 


COO0OH Bildspeicher 


8000H 


BASIC Bank 0 


0000H 


BASIC Bank 1 


Bonk 1 


1) 
2 


Yavavavav, w 
RRRR x 


N 


Bonk 7 


Daten- 
oder 
Bildspeicher 


4 


2 
90, 
NIINIIE 


SR 
RS 


BASIC Bank 2 


Speicherkonfiguration unter dem vortex BOS 


BEISPIELE: 


Im Folgenden finden Sie einige einfache Maschinenprogramme, 
vortex Speichererweiterungen verdeutlichen und hierbei 


BASIC Bank 8 


die die Programmierung der 


allerdings lediglich den Charakter von 
Anregungen haben sollen. Es wird kein Anspruch auf Vollständigkeit erhoben. 
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1. Datenspeicherung in einem unteren Block (0000H...7FFFH): 


Das Steuerprogramm und der Stack müssen (!!!) oberhalb von 7FFFh liegen, da der untere 
Block beim Aktivieren des externen Speichers "weggemapt" wird und somit andernfalls 
Programm und/oder Stack verloren gingen, was unweigerlich zum Absturz führt. 


Aufgabe: Übertrage einen Datenblock aus dem Buffer BUFF in den unteren Block von Bank 0 
zur Adresse 0. (Der Buffer muß natürlich auch oberhalb 8000H liegen!) 


SELECT EQU OFBBDH ; BANKSELECT PORT DER KARTE 
BUFF EQU 09000H ; DATENBUFFER 


ODER EINE HÖHERE STARTADRESSE 
SICHERE STACKPOINTER 

UND RICHTE LOKALEN STACK OBERHALB 
8000H EIN 


ORG 8000H 
LD (SSTACK) ‚SP 
LD SP,SSTACK 


WÄHLE NUN EXTERNE BANK AN 
LD BC,SELECT 
LD A,O00100000B 


; 2 BYTE PORTADRESSE F|R BANKSELECT 
; WÄHLE BANK 0 

; ENÄBLE RAM CARD (BIT 5=1) 

; SCHREIBE IN BANKSELECT REGISTER DER 
; KARTE 


OUT (C),A 


Anmerkung: Bis zum nächsten OUT auf dem Bankselect Port ist jetzt Bank O selektiert. d.h. man 
muß nicht jedesmal die Bank selektieren, wenn sich die Banknummer nicht ändert. 


WÄHLE NUN UNTEREN BLOCK AN UND SCHALTE EXTERNEN RAM EIN 


DI ; INTERRUPT WÄHREND DES DATENTRANSFERS 
; VERBIETEN 

EXX ; SCHALTE AUF 2. REGISTERSATZ 

PUSH BC ; SICHERE GATE ARRAY STATUS 

RES 6,C ; WÄHLE UNTEREN BLOCK 

SET 5,C ; SCHALTE EXTERNEN RAM EIN 

OUT (C),C ; 


JETZT EXTERNER RAM EINGESCHALTET-->DATEN KÖNNEN ÜBERTRAGEN 
WERDEN 


' 


LD HL,BUFF ; POINTER ZUM BUFFER 

LD DE,0O ; ZIEL ADRESSE IN BANK 0 
LD BC,128 ; ÜBERTRAGE Z.B. 128 BYTES 
LDIR ; VERSCHIEBE BLOCK 


JETZT EXTERNEN RAM WIEDER ABSCHALTEN 


POP BC ; HOLE ALTEN GATE ARRAY STATUS 

OUT (c),c ; UND WÄHLE ALTE KONFIGURATION 
; WIEDER AN 

EXX ; ZURÜCK ZUM 1.REGISTERSATZ 

EI ; JETZT KANN DER INTERRUPT WIEDER 
; KOMMEN 

LD SP, (SSTACK) ; STACK EINRICHTEN 

RET ; ALL DONE! 

DEFS 10 ; PLATZ FÜR LOKALEN STACK 

SSTACK: DEFS 2 ; SICHERE HIER ALTEN STACKPOINTER 
END 
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Da das BC Zweitregister immer den aktuellen Gate Array Status enthält (Besonderheit der 
CPC’s) gestaltet sich die Aktivierung der Karte als äußerst einfach. Andererseits muß man 
allerdings beim Arbeiten mit den Zweitregistern der Z80 bei den CPC’s eben aus diesem Grund 
auch etwas aufpassen. (siehe Firmwarehandbuch). 


Y 


Möchte man umgekehrt die Daten wieder aus dem unteren Block von Bank 0 auslesen, so ist 
dies auch nicht wesentlich schwieriger, man muß jedoch immer beachten, daß bei eingeschaltetem 
Firmware ROM zwar immer in den RAM geschrieben, aber aus dem ROM gelesen wird. Möchte 
man also den RAM auslesen, so muß man zuerst den ROM abschalten. In obigem Beispiel muß 


man den Programmteil zwischen den beiden -.-.-. Linien beim Lesen wie folgt ersetzen: 
PUSH BC ; SICHERE GATE ARRAY STATUS 
SET 2,C 
OUT (C),C ; SCHALTE UNTEREN ROM AB 
RES 6,C ; WÄHLE UNTEREN BLOCK 
SET 5,C ; SCHALTE EXTERNEN RAM EIN 
OUT (C),C ; 


Anmerkung: ROM abschalten und externen RAM einschalten kann im Normalfall nicht mit 
demselben OUT (C),C erfolgen, da die Bits 5 und 6 kein internes Gate Array Register 
ansprechen und deshalb u.U. das OUT vom Gate Array ignoriert werden. Also immer erst ROM 
und dann erst RAM Konfiguration ändern. 


JETZT EXTERNER RAM EINGESCHALTET-->DATEN KÖNNEN ÜBERTRAGEN 
WERDEN 


LD HL,O ; POINTER ZU DEN DATEN 

LD DE,BUFF ; ZIEL ADRESSE = BUFFER 
; ÜBERTRAGE 2.B. 128 BYTES 
; VERSCHIEBE BLOCK 


2. Datenspeicherung in einem oberen Block (8000H...FFFFH) 


Die Datenspeicherung in einem oberen Block ist der in einem unteren Block völlig analog 
nur müssen hier Schaltroutine und natürlich auch Stack unterhalb von 8000H liegen. Beim 
Lesen der Daten aus dem Block ist auch hier wieder darauf zu achten, daß dieses Mal allerdings 
der obere ROM abgeschaltet ist. ( Der obere ROM wird über das 3.Bit des Gate Array Ports 
gesteuert. Siehe hierzu auch Firmwarehandbuch). 


I I 
I I 
I Selbstverständlich könnte man auch auf den Blockselect Port I 
I (=Gate Array Port 7FxxH) ausschreiben, ohne vorher auf den I 
I 2.Registersatz umzuschalten. Man muß hierbei jedoch immer im I 
I Auge behalten, daß sich hierbei der Gate Array Status ändern I 
I kann, was im Normalfall zum "Absturz" des. Systens führt. I 
I Aus demselben Grund werden in den Beispielen auch die Bit- I 
I Manipulationsbefehle der 280 eingesetzt, weil diese die I 
I übrigen Bits des Gate Array Status unberührt lassen. Bei Bit- I 
I Manipulationen mit AND, OR, XOR etc. muß hierauf gesondert I 
I geachtet werden. I 
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EPSON-Drucker 
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= 
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App ple lle 
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Atari 


Atari520ST+ aufAnfrage 
Olivetti oierim24,0skm.Controler,Tasta- 
tur, Monitor, 640 KB-RAM, Bus-Converter, 10MB-Platte 7498,- 


Tandon Neu! Tandon Neu! 


PCX 256 KB-RAM, 1LW360KB, 1 Platte 
10MB, 14" Monitor, Bit für Bit und Mark für Mark 4999 y- 
Amstrad auf Anfrage 


Sana PC 


AUHRTARER 


IHYEUHN) 


ui Fi 


CPC-464 grün Monitor 725,- 


mit farb. Monitor 1198,- 


Floppy-Laufwerk 3" DD-1 725,- FD-1 548,- 
Disketten 3” f. Schneider CPC 10St. 109,- 
2. Floppy (250 KB) 5'/4”, anschlußf. an den 

Controller der 1. Floppy, incl. CP/M u. Logo 553,- 


CPC-664 m. grünem Monit. 1148,- m. Color-Monit. 1599,- 
CPC-6128 mit grünem Monitor 1448,— 
CPC-6128 mit Color-Monitor 1898,- 
NLQ-401 Drucker 688,- Brother M-1009, w. NLQ-401 398,- 
Druckerkabel Schneider/Centronics 69,- 
JOYCE PCW 8256 2198,- 


Hewlett Packard 


HP-11C 166,-, HP-15C 333,- HP-82143 A Drucker 998,- 
IL-Laufwerk 1448,-  Kartenleser.f.HP-41 538,- 
IL-Drucker 1175,- _ HP-71 BD 1498,- 


Kartenl. für HP-71 BD 519,- 
HP-IL FI.-Disk-Laufw. 2290,- Sämtl. HP-Zubehör preisw. a. Anfr. 
Mathe-Modul für HP-41 75,- Preisbeisp.:Akkufür HP-44  106,- 
Akku (82120 A) und Netzteil (82066 B) für HP-41 145,- 


Think-Jetm.IL-Anschl.  1325,- 


HP-80er, HP-110er und HP-150er Serie zu den bekannt 
günstigen ProSoft-Preisen!!! 


Disketten u. Zubehör biwiostück 


31/2" 1 DMarkendiskette 75,- 

31/2’ 2D Markendiskette 129,- 

51/4 1 D No name 19,- 51/4 2 D No name 29,- 
Diskettenbox für 40 Disketten, abschließbar 39,- 
Tabellierpapier 2000 Bi., 12”x 250 mm 39,- 
Akustikkoppler dataphon, Test: „sehr gut“ 298,- 


die Preislisten und Informationen an! 
ACHTUNG! ACHTUNG! ACHTUNG! 


Da viele Hersteller nicht in der Lage sind, die vom Markt geforderten Stückzahlen zu liefern, kön- 
nen beieinigen Geräten kurzzeitige Lieferengpässe entstehen. 


40 LESERBRIEF 


LESERBRIEFE 


"Heute habe ich mir die nunmehr fünfte Aus- 
gabe Ihrer guten Fachzeitschrift Schneider- 
aktiv 2/86, welche mir mein Zeitschriften- 
händler reserviert, gekauft. Schon beim ersten 
Durchsehen bemerkte ich, hier habe ich wie-der 
eine gute Fachzeitschrift, welche sich nach wie 
vor für Ihre Leser einsetzt in Händen (nicht 


wie üblich nur für die Hard- und Soft- 
warehersteller). Es warten wieder interessante 
und lehrreiche Artikel auf mich. 


Die neue Einteilung des Heftes ist auch besser 
geworden, so ist das Heft viel übersichtlicher. 
Gut ist auch das nun überschaubare Inhalts- 
verzeichnis und die Randbemerkungen mit 
Seitenangabe. Auch ist positiv zu bewerten, daß 
man in Ihrer Zeitschrift mehr Hilfsrou-tinen 
und Anwenderlistings als nur immer Spiele 
findet. Soweit ich es bis jetzt übersehe 
befinden sich wieder hervorragende Listings 
und Berichte in dieser Ausgabe. So hoffe ich 
mit dem Programm Trans Copy 2000 endlich 
Sicherheitskopien von Kassette auf Diskette 
machen zu können. 


Hervorragend sind auch die Artikel von Herrn 
F. W., dessen Humor erfrischend ist. Er hat die 
Gabe einiges auszusprechen, wo andere noch 
schlafen oder zu feige (?) sind und verpackt 
dieses gekonnt." 

A. Weitl 


Tu EEEEEIEEEEEREEERREEE 


Wir erhielten wieder Körbe von Post. Aus den 
Leserbriefen können wir daher wiederum nur 
einige wahllos herausgegriffene abdrucken. 
Wir bitten um Verständnis. Schreiben Sie uns 
weiterhin - für alle, die an dieser Zeitschrift 
mitarbeiten, ist jeder Brief - ob positiv oder 
negativ - eine Bestätigung für den richtigen 
Weg oder ein Hinweis es besser zu machen. 
Derzeit sind wir - wir erhalten als aktive 
Zeitschrift wirklich körbeweise Post - nicht 
in den Lage jeden Brief zu beantworten. Wir 
versprechen Besserung und bitten um Nach- 
sicht. 


"Ich suche ein semi-professionelles Software- 
paket zur Aktienanalyse für meinen CPC 6128. 
Das Programm soll können: 


Buchhaltung für ca. 20 Werte; Berechnung der 
Rendite etc.; Analyse Technisch und Funda- 
mental für ca. 50 Werte mit Kursen von 200 
Tagen; Berechnung der gleitenden Durch- 
schnitte für 14, 40, 80 und 200 Tage; gra- 
fische Darstellung der einzelnen Kurven- 
verläufe und gl. Durchschnitte sowie - wenn 
möglich - Überlagerungsmöglichkeit von Kur- 
ven; Hardcopy-Funktion für Buchhaltung, 
Kursverläufe und Grafiken. 


Wer kann ein geeignetes Programm empfeh- 
len?" 

Robert Löwenstein 

In der Helle 43 

5790 Brilon 


"Als erstes Glückwunsch zu Ihrer sich ange- 
nehm von anderen Produkten dieses Genres 
abhebenden Zeitschrift. Die von mir abon- 
nierte Zeitschrift wird sobald‘ wie möglich 
gekündigt. 


Meine Erfahrungen zu den Vortex-Produkten: 


1. Speichererweiterung SP 64 - aufgerüstet auf 
512 KB 

1.1. Montage und Aufrüstung denkbar ein-fach, 
ca. 1 Stunde Arbeitszeit 

1.2. Dokumentation dazu hervorragend bis auf 
die Erklärungen der Handhabung von relati- 
ven Dateien. 


2. Vortex-Floppy (nachgerüstet mit VDOS 
2.0), gut zu gebrauchen, betriebssicher und 
lesefehlerfrei, schneller Datenzugriff, VDOS 
2.0 - sehr gut 


3. Para-Disk-Manager 

Das einzige Vortex-Produkt, mit dem ich et- 
was Schwierigkeiten habe. Diese Schwierig- 
keiten betreffen die im Para implementierte 
Schreibe-Lese-Einstellung der Floppy für den 
Sharp MZ 80 B. Dieses Format ist nicht ein- 
stellbar. Kann mir jemand helfen?" 

Walter Gräfe 

Leipziger Str. 23 

6053 Obertshausen II 


"Vor einigen Wochen habe ich mir eine Spei- 
chererweiterung 64 K der Fa. Vortex zugelegt 
und bin rundherum zufrieden. Ein Problem tat 
sich nun aber doch auf. Und zwar steht in der 
Beschreibung, daß Programme, die im Basic- 
Mode, d.h. in alter Art abgesaved worden sind, 
nun nicht im BOS-Mode geladen werden 
können. Das ist leider sehr behindernd, denn 
ich habe einige Programme, die ich zur Er- 
weiterung gerne ins BOS geholt hätte. Der 
Gebrauch der Karte wird dadurch für mich 
sehr eingeschränkt. Leider hat sich die Fa. 
Vortex auf meine schriftliche Anfrage nicht 
gerührt. Wer kann mir helfen?" 

Karl-Horst Hausmann 

Asterweg 57 

6300 Giessen/Lahn 


"Als ich mir vor ca. 1 Jahr den CPC 464 kauf- 
te, bestellte ich auch gleich den MPI-Modu- 
lator mit. Der Computer kam, aber der Modu- 
lator sollte nachgeliefert werden. Auf diese Art 
der Nachlieferung warte ich allerdings heute 
.noch immer. Offenbar bringt Schneider, man 
stelle sich einmal vor, ein Rundfunk- und 


Radiohersteller, es 
Modulator herzustellen. 
Jahres rief ich bei Schneider an und fragte 
nach, wann der Modulator nun endlich er- 
scheinen sollte. Als Antwort erhielt ich, "...da 
sind unsere Lehrlinge bei." 


nicht fertig, einen 
Im Sommer letzten 


Im Herbst letzten Jahres kündigte nun Schnei- 
der einen verbesserten Modulator, den MP II, 
an. Bei dem größten technischen Kaufhaus 
kaufte ich den Modulator. Nach dem Aus- 


packen stellte ich fest, daß der Modulator kein. 


"GS"-Zeichen hatte. Ich schloß den Modulator 
am Fernseher an - ein Brummen, wie ich es 
noch nie gehört hatte. Der Modulator selbst 
versuchte, ein Fernsehbild zu erzeugen. Er 
überstrahlte die anderen Programme. Nach 
diesem frustrierenden Erlebnis brachte ich den 
Modulator zurück. Ich erhielt auch anstandslos 
mein Geld wieder. Der Verkäufer sagte noch, 
daß ich innerhalb eines Tages bei 5 verkauf- 
ten Geräten schon der Dritte sei, der diesen 
Modulator zurückgeben würde. 


Ein anderes Problem, das ich auch gleich zur 
Sprache bringen möchte, ist der CPC 4512. 
Nachdem ein Artikel in Heft 12/85 stand, 
schrieb ich auch gleich eine Postkarte und bat 
um weitere Informationen, die ich bis heute 
noch nicht erhalten habe. Offensichtlich 
handelt es sich um dieselbe Firma, die dann 
auch in Heft 1/86 inserierte. Wiederum bat ich 
um Informationen, die auch nicht kamen.” 
Lothar Henning 


Anm. d. Redaktion: 
Wir haben die 4512 Anfragen an den Hersteller wei- 
tergeleitet. 
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Auftrag in der Bronx 39,-- DM 

49,-- DM 

Reise durch die Zeit 39,-- DM 

49,-- DM 

Drachenland 39,-- DM 

. Dun Darach 39,-- DM 

w p Sherlock Holmes 39,-- DM 

ANWENDER-SOFTWARE Alien 8 39,-- DM 

; Starion 39,-- DM 

Warlord 39,-- DM 

C.A.D. 464 Grafikprogramm Super Star Challenge 39.-- DM 

Grafikmaster Grafikprogramm Tennis 39.-- DM 

Para Diskmanager Billard 39,-- DM 

Seh pelirainer Super Games I 4 Spiele 87,-- DM 

rn rnpeae Musikprogramm Super Games II 4 Spiele 87,-- DM 

er a onfag® Super Sport I Tennis/Billard 68,-- DM 

ralikprogramm First Step with Mister Men 39,-- DM 

Da Bun Text/Adress Pyjamarama 39,-- DM 
a ’ 

Dt. jr he rapie Kong strikes back 39,-- DM 
POWER BASIC Basicerweiterung a nt. won 
WER BASI SE 
The Quill c Basicerweiterung Daley Thomsons Supertest 39,-- DM 
Selbstlernbasic 1 007 James Bond DM 
Selbstiernbasic 2 World Series Baseball 29,-- DM 
Assembler/Disassembler Pole Position 99 ,7- DM 
Assembler/Disassembler ee Boxing en ni 

HiSoft-Pascal . BR 
HiSoft-Pascal Bounty Bob strikes back 49,-- DM 
WordStar 3.0 Bruce Lee 39,-- DM 
dB = u mit Mallmerge Message from Andromeda 29,-- DM 
Multiplan Jewels of Babylon 29,-- DM 
Headline Setzprogramm s. SCHNEIDER-aktiv 11 ren - u 
Edit Textverarbeitung 3D Time Treck 39.-- DM 
Databank zu Edit Air traffic control 36,-- DM 
Tasword-Text deutsch Zen 49,-- DM 
Beer Ten deutsch Heroes of Karn 39,-- DM 
asprint deutsch ; Ye 
Tasprint deutsch Killer Gorilla 39,-- DM 
Teropr deutsch eg 5 3. DM 
ascopy deutsch ar 
Turbo-Pascal Version 3,0 ee 9. DM 
Turbo-Pascal 3.0 mit Grafik age sn 
TexPack von Schneider 1 u Sarre DM 
ComPack von Schneider Sieles Er n 
Deathpit 39,-- DM 
HEADLINE 464 198,- DM Frank‘n‘ Stein 39,-- DM 
tixdrucker Super Pipeline II 39,-- DM 
O Briefbögen 49,-- DM 
O Formulare Fighter Pilot 39,-- DM 
O Transparente - 49,-- DM 
© Ettiketten Special Operations 39,-- DM 
O BARCODES House of. Usher 29,-- DM 
O Tabellen s 39,-- DM 


O Werbung 

O Preisschilder 

O Flugblätter 

© Rundschreiben 
etc. 


O Variable Zeichengröße 


(bis zu 20 ...30 cm) 


O variabie Zeichen-Breite/Höhe 


O Kursivstellung 

O Proportionalsatz 
O Inversdarstellung 
© Outline 

O Shadow 


K=Kassette 

D=3" Diskette) 
V=vortex Diskette 
C=Cumans Diskette 


*= SCHNEIDERN-aktiv getestet 
<<=8pitsen; 


DR DR DR DR Dt DR Dr DD DDR DS DR DR DR DE DR DR DR DI I I DR DDR DR DR DR DR DR IR I DR I I 


I DR DR II DIS DR Du DR DR DD DD DDR DR INS, 
Du Dun Ju "Du Du Denk Du Du Du Dh Dun Puh Pe Duni Dun Du Du Dun Du Du Dem Dh Dh Du Du Du Du Du Dh ud Du Dh Demi Du Dh mh Du Du Dh Dh Dank, fund Du Dh Dun Du Dunh Dud Dunh Du Dun Dun Dead Dun 


programm 
#=lieferbare Version bitte anfragen 


1=1äuft auf dem CPC 464 
3=1&uft af dem CPC 664 
3=läuft auf dem CPC 6138 


O beliebige Raster und Muster 

O Diagramme/ Abbildungen 

O Fonts: über 500 neue Zeichen 

O selbst definierbare Zeichen 

O hochauflösende Matrix:240x240 

O Dot,mm,lach, Pkt Festlegung 
auf Diskette mit dt. Anleitung 


Änderungen, Liefermöglichkeit, Irrtum und Druckfehler vorbehalten 


Jammin 29,-- DM Kı 
Hobbit, s9,--DM Ki 
Daley Thomsons Decathlon 36,-- DM Ki 
Fruity Frank 33,-- DM Ki 
Moon Buggy 29,-- DM Kı 
Jet Set Willy 29,-- DM Kı 
Harrier Attack 39,-- DM Kı sSs5S5 057 
‚ Grand Prix Driver 39,-- DM Ki 
_ Flight Path 737 29,--DM Ki Syppenpeasgget 
Forrest at Worlds End 29,-- DM Ki ——- 
Defend or Die 32,--DM Ki .- 
Gostbusters 4,--DM Ki : fi Se R 5 = 
Interdictor Pilot 69s0ODM Ki Vergleichen Sie die Preise - wir dürfen es nicht! 
Football Manager 33;-- DM Kıl 
World Cup r 39,-- DM Kı 
Galaxia 38,50DM Ki 
Star Commando 29,-- DM Ki - 
Jet boot Jack 39,--DM Ki CPC 464 mit grünem Monitor _ DM 699,- 
Masterchess 39,-- DM Kı 
3-D Voice Chess 59,-- DM Kı i 
American Football 39,-- DM Ki CPC 464 mit Color Monitor DM 1149,- 
Snooker 36,-- DM Ki 
46,-- DM DI 
Sorcery 29,--DM Ki CPC 664 mit grünem M - 
Red Moon 2--.DM Kı g onitor DM 1248, 
Return to Eden 39,-- DM Ki 
Battle from Midway 39,-- DM Ki N 
Snowball 39--DM Kı CPC 664 mit Color Monitor 
Lords of Time 39,-- DM Ki 
Colosal Adventure 39,-- DM Kı 
an asin Diamond 39--DM Ki CPC 6128 mit grünem Monitor DM 1399,- 
Manic Miner 29,-- DM Ki 
Amsgolf 39,-- DM Ki . 
Baie 1: 210) 38.50 DM Ki CPC 6128 mit Color Monitor DM 1849,- 
Vier Juvelen 38,50 DM Ki 
Mini Office 29,-- DM Ki 
Code Name Mat 39,--DM Ki Joyce 8256 mit Grünmonitor DM 2149,- 
Slapshot 39,-- DM Ki 
Everyone’s a Wally 44,-- DM Ki 
Juggernaut 36,-- DM Ki Diskettenlaufwerk mit Controler 
Master of the Lamps 45,-- DM Ki 
On the Run 36,-- DM Ki 
Project Future 39,--DM Ki Diskettenlaufwerk DM 539,- 
Wizzard’s Lair 49,-- DM Ki 
3D-Star Strike 39,-- DM Kı 
Knight Lore 39,--DM Ki _NLQ 401 Drucker DM 699,- 
Rocky Horror Show 39,-- DM Kı 
Hunchback II 39,--DM Ki Alle Preise zu Be Ei nr Versandkosten pro Paket 
Hunter Killer 39,--DM Kıl usland 50,- DM) 
3D Monster Chase . 29,--DM Ki Versand nur bei schriftlicher Bestellung und gegen Vorausscheck 
reger Pen re = : Keine telefonischen Bestellungen 
3D Invaders 39.-- DM Kı Alle Preise einschließlich 14% Mehrwertsteuer 
Bridge it 39,-- DM Kı W 
Money Molch 39,--DM Ki ir . 
Br Em können liefer 
,--DM DI 


Software-Agentur Ritzler 
St. Johann 86 
8520 Erlangen 


Tel. 09131/47460 
Tel. 09122/5358 


TEST DFU 


44 


Testbericht 
Akustik-Induktiv- 
Koppler CTK 2002 


Was ist überhaupt INDUKTIV 


Das heißt nichts anderes, als daß die Daten 
nicht akustisch, sondern per Magnetfeld über- 


. tragen werden können. Die Vorteile für dieses 


Verfahren liegen eindeutig auf der Hand - das 
meist umständliche Eindrücken des Telefon- 
hörers in die Gummimuscheln entfällt und die 
Angst, daß Geräusche der Umgebung die 
Übertragung stören. Da kann dann also schon 
einmal der Hund laut losbellen oder die Mut- 
ter mit dem Staubsauger ins Zimmer kommen. 
Das macht diesem Akustikkoppler überhaupt 
nichts aus. Eins sei noch zu bemerken NUR 
DER EMPFANG ERFOLGT INDUKTIV 
NICHT DAS SENDEN. Das stört aber über- 
haupt nicht. Einen Nachteil gibt es aber bei 
der Methode des Induktivempfangs, der Mo- 
nitor muß mindestens 40-50 cm vom Koppler 
entfernt sein, da der Monitor ein starkes 
Magnetfeld erzeugt, das die Übertragung stört, 
ja sogar unmöglich machen kann. 


Die Praxis 


Gleich vorab: In der Praxis arbeitete dieser 
Akustikkopplers zur vollsten Zufriedenheit. 
Und das hat mich begeistert: 


1. Das umständliche ’Hineindrücken’ des 
Hörers in die Gummimuscheln ent- 
fällt. h 

2. Dadurch kann man die Verbindung 
mithören, d.h. der Hörer kann schon 
während des Wählens auf dem Kopp- 
ler liegen und man hört dann, ob der 
Anschluß frei oder besetzt ist. 

3. Das mitgelieferte Netzteil macht un- 
abhängig von Batterie und Akkus. 


4. Der Akkubetrieb kann nachgerüstet 
werden. 


CPC 464/664/6128 


5, Fünf Kontrollampen stehen zur Ver- 
fügung: 

EIN leuchtet auf, wenn Be- 
triebsspannung vorhanden 
ist. RD leuchtet auf, wenn 
Daten vom anderen Rechner 
empfangen werden. 

TD leuchtet auf, wenn der ei- 
gene Rechner Daten sendet. 

CD leuchtet auf, wenn ein Em- 
pfangssignal erkannt wurde. 

ANS leuchtet auf, wenn sich der 
Akustikkoppler im Answer- 
Mode befindet. 

6. Umschalten von ORIGINATE und 
ANSWER möglich. 

7. 100% Datensicherheit wegen Induk-tiv- 
Technik. 

8. Sofortiges Anschließen an die Schnei- 
der RS232 Schnittstelle möglich. 

9. Ausreichend langes Kabel. 

10. Durch Moosgummistöpsel rutscht der 
Akustikkoppler auch nicht auf glatten 
Unterlagen 

ll. FTZ Nummer selbstverständlich vor- 
handen (18.13.1996.00) 

12. Sechs Monate Garantie auf das Gerät. 

13. Kompatibel zum Postmodem D 1200 


Bei meinem Test nach Hamburg konnte ich 
nach 10 Minuten keinen einzigen Datenüber- 
tragungsfehler feststellen, ich bin mir auch 
ziemlich sicher, daß eine Verbindung ins Aus- 
land ebenso unproblematisch verläuft (Das war 
mir aber zu teuer). 


Mein Gesamturteil 

ist nur gut, da der Akustikkoppler nur über 
300 Baud verfügt und relativ teuer ist (ca. 
698,- DM) und eine sehr dürftige Anleitung 
hat (eine Seite), die nicht viel über das Gerät 
hergibt. 


Technische Daten 
Betriebsart: V21, 300/300 Baud Origina- 
te und Answer umschaltbar. 
Schnittstelle: RS232, V24, TTL 
Stromverbrauch: 20 mA. über externe 
Schnittstelle oder Steckernetzteil. 
Gewicht: ca. 250 g. 
FTZ-Nummer: 18.13.1996.00 
(Christian Eißner) 
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DANK an ALLE 


Wir danken allen unseren Lesern, den CPC-User Clubs und vor allem unseren freien 
Mitarbeitern, die am Entstehen dieser 6. Ausgabe von SCHNEIDER-aktiv mitgearbeitet 
haben. 


Wir bitten alle Leser dieser Zeitschrift nicht nachzulassen und AKTIV zu bleiben. 
Bitte schickt uns weiterhin: 


- LISTINGS (auch gute größere Programme können wir in Verbindung mit unserem 
SOFT-BOX-Service veröffentlichen) 


- Erfahrungsberichte über CPC Hardware und CPC Software 
- Kritiken und Lob über alles was sich auf dem CPC Sektor tut 


- Vorschläge wie SCHNEIDER-aktiv noch besser werden kann 


Schreibt auch wo und von wem Ihr gut oder schlecht bedient worden seid und bei welcher 
Hard- und Software Ihr glaubt Euer Geld zum Fenster hinausgeschmissen zu haben bezw. 
welche Hard-und Software Ihr empfehlen könnt. Schreibt auch Euere Probleme mit 
Reparaturen und Service. 


Nochmals Dank und seid nicht böse wenn Euer eingesandter Beitrag aus redaktionellen 
Gründen noch nicht in dieser Ausgabe zu finden ist - wir bringen ihn in den nächsten 
Ausgaben 
Euer 
SCHNEIDER-aktiv-Team 


Postfach 1201 
8540 Schwabach 


Nicht vergessen ... 


„.. SCHNEIDER-aktiv erscheint immer 


am letzten Mittwoch im Monat 


Neugierige Fragen von F.W. 


Da dies hier schon die soundsovielte Ausgabe 
von SCHNEIDER-aktiv ist, wird es höchste 
Zeit für eine Leserumfrage. F.W. will seine 
Leser kennenlernen und außerdem ist eine 
“ Statistik immer gut, auch wenn man vorher 
vielleicht nicht weiß wofür (Zur Not für die 
Katz) und schließlich machens die anderen 
auch. 


Um eine der nachstehenden Fragen zu beant- 
worten, genügt es, die richtige Antwort dazu 
anzukreuzen, dafür sind die Kringel da, prak- 
tisch was ?! Wie geht das nun mit dem An- 
kreuzen ? Nun schließlich lest Ihr ja 
SCHNEIDER-aktiv, da könnt Ihr immer etwas 
lernen. Im Direktmodus gebt Ihr ein: PRINT 
"X", ganz einfach. 


Wenn Ihr alle Fragen beantwortet habt, dann 
sendet den Monitor an SCHNEIDER-aktiv, 


LESERUMFRAGE 


Postfach 1201, 8540 Schwabach. wenn Euch 
allerdings das Porto zu teuer ist, dann benutzt 
doch einfach einen Drucker (wieder was ge- 
spart), dann müßt Ihr dem Befehl noch die 
Zuweisung "#8" geben. das Heft, oder besser 
nur die Seite sollte man sehr genau ein- 
spannen. Den Drucker könnt Ihr dann an die 
gleiche Adresse schicken. 


Selbstverständlich werden alle Angaben zur 
Person streng vertraulich behandelt. Hübsche 
Mädchen, meinetwegen auch Damen, schicken 
bitte ein Photo (Postkartengröße), Adresse und 
Telefonnummer mit. “Ich komme dann gele- 
gentlich zur vertraulichen Behandlung vorbei. 


Zu gewinnen gibt’s natürlich auch etwas, 
einen Superpreis sogar, welcher genau, das 
kann Euch egal sein, die Sache habe ich schon 
mit meinem Schwager geregelt. Und nun die 
Fragen: 


GESCHLECHT ALTER 

0 Männlich O über 10 Jahre 

O Weiblich O unter 80 Jahre 

O Tierisch O zwischen 10 und 80 Jahren 
O Unbekannt O weder / noch 

BERUF FAMILIENVERHÄLTNISSE 

O Nichtsnutz O chaotisch 

O Analphabet O Ledig(Clich) verheiratet 
O Lehrer O  Kegelverein 

O0 Bischof O einsam & verlassen 


KONFUSSION EINKOMMEN 

O Mafiosi O zu wenig 

O Grüner 0O nicht genug 

0 Parteilos O Kindergeld (volles Dutzend) 
O Bestechlich O Lebe vom Blutspenden 


COMPUTERMODELL 


O der mit der Klappe für die Notizzettel, rechts (CPC 464) 
O der mit dem Münzeinwurf rechts (CPC 664) 
O der mit katastrophalen unübersichtlichen Tastatur (CPC 6128) 
VERWENDUNGSZWECK MIT WELCHEN PROGRAMMIERSPRACHEN 
O Als Bügel- und Servierbrett O Hessisch 
O Als Heimorgel O Basisch 
O Zum Programmieren, so- O Pascal & Pierre 
bald ich's gelernt habe O Kobold 


WIE LANGE SITZEN SIE TÄGLICH VOR _DEM COMPUTER 


[e) 


[e) 
[e) 
0 


Täglich nicht, arbeite immer nur nachts, schlafe im Büro 

24 Stunden, wenns nicht reicht nehm ich die Nacht dazu 

Sitze nicht, habe Stehpult als Workstation 

Sitze lieber dahinter weil mich das grelle Licht aus dem Monitor stört 


WAS BESITZEN SIE AN PERIPHERIE 


0 


0 
0 
[e) 


Kaffeemaschine, Kugelschreiber und Anti-Baby Pille 

IBM PC-XT 

Alles was man braucht ! (Wenn ich nur wüßte wozu) 
Diskettenstation, Printer und Joystick (nächstes Weihnachtsfest 
kauf ich mir einen Computer) 


WIEVIEL GEBEN SIE IM JAHR FÜR PROGRAMME AUS 


0 


0 
0 
0 


Geht nicht, stottere noch den Computer ab 

Ich habe meinen CPC noch kein Jahr 

Im Durchschnitt ca. 1.98 DM, in 15 Jahren kauf ich das Erste 

Gar nichts, beziehe meine Programme bei der Firma Kupfer & Stecher 


WO_KAUFEN SIE SCHNEIDER-AKTIV 


{6} 


0 


Vater bringt mir das Heft mit, damit ich seine Magazine im Nachttisch 
nicht heimlich lese 

Kaufe ich nicht, lese ich in der Zeitschriftenabteilung und merke mir 
das Wichtigste 


WIE FINDEN SIE SCHNEIDER-AKTIV 


[e) 
[e) 


[e) 


In der Schultasche meines Sohnes wenn ich meine Magazine suche 

Ich erlaube mir kein ungerechtfertigtes Urteil über eine Zeitschrift 
solange ich noch nicht lesen gelernt habe 

Im Nachttisch meines Vaters, wenn ich seine Magazine suche 


WAS WÜRDEN SIE BESONDERS GERNE IN SCHNEIDER-AKTIV SEHEN 


0O Berichte über Hardware, Software und Irgendwer 

O Mädels, Mädels und noch mal Mädels 

O Das Fernsehprogramm und den Wetterbericht als Listing 
0 Einen Hundertmarkschein (Leider noch nie vorgekommen) 
WELCHE ZEITSCHRIFTEN LESEN WEITERE HOBBYS 

Sie sonst noch O Mädchen 

oO Gar nix 0 Jungs 

O Asterix O Beides 

O Vaters Magazine O Mich 

O Das Alte Testament O Vaters Magazine 


Fragebogen 


HUMOR _F.W. 
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1) !GPEN, farbe 


Dieser Befehl benötigt einen Parameter. Dieser 
legt die Farbe des Grafik-Pens fest und kann 
zwischen O0 und 15 liegen. 


2) !'GPAPER,farbe 


Wie Nr. 1, jedoch wird mit diesem Befehl die 
Farbe des Grafik-Papers festgelegt. 


3) !I'GRAPEN,wert 


Dieser Befehl ändert die Bit-Maske des Gra- 
fik-Pens. So können Linien zweifarbig gestri- 
chelt dargestellt werden. Setzen Sie verschie- 
dene Werte ein und probieren Sie einfach mit 
diesem Befehl zu arbeiten. 


4) !'GRAPAPER,wert 


Wie Nr. 3, jedoch wird die Bit-Maske des 
Grafik-Papers geändert. 


10 MEMORY &ASSC:MODDE 1:sum=O 

20 PEN 3:PRINT”Bitte warten !":PEN 1 

30 FOR 1=-&ASSD TOD &ABBC 

40 READ a$:POKE 1,VALC"&”+a$) 

SO sum=-sum+VALC"&"+a$) 

60 NEXT 

70 IF sum<>33999 THEN PRINT"Fehler...”:E 


BO CALL &ABA? - 

90 PRINT: PRINT:PRINT"”Achtung ! Absaven”, 
‚:PEN 2: PRINT”SAVE”CHRSC34)"rsx"CHRSCIH) 
”,b,&359d4,&120”,:PEN 1:PRINT”Aufruf mit 

CALL &ABA?7” 

100 PEN 3: PRINT:PRINT:PRINT:SAVE”rsx",b, 
&ASSD, &120 

110 DATA a2,a5,c3,b5,35,47,50,45,ce,00,0 
0,00,00,00,01,9d,35,21,37,35,c3,d1,bc, 00 
‚fe,01,c0,dd,7e,00,fe,0f,dO,cd,de,bb,cS, 
c7,35,c3,dc,a5,47,50,41,50,45,d2,00,00,0 
0,00,00,01,c2,35,21.ce,a5,c3,d1,bc,00,fe 
‚01,c0,dd,7e,00,fe,0f,dO,cd,e4,bb,c9 

120 DATA ee,35,c3,01,36,47,52,41,50,45,c 
e,00,00,00,00,00,01,e93,35,21,f5,a5,c3,dl 
‚be,fe,01,c0,dd,7e,00,32,38,b3,c9,11,a5, 
c3,28,6,47,52,41,50,41,50,45,d2,00,00,0 
0,00,00,01,0c,36,21,1a,a6,c3,d1,bc,00,fe 
‚01,c0,dd,7e,00,32,39,63,c9,37,a6,c3 

130 DATA 4a,a6,4d,50,45,ce,00,00,00,00,0 
0,01,32,36,21,3c,a6,c3,d1,bc,00,fe,01,c0 
‚dd,7e,00,32,8f,b2,c9,53,a6,c3,6e,a6,'td, 
50,41,50,45,d2,00,00,00,00,00,01,54,a6,2 
1,60,356,c3,d1,bc,00,fe,01,c0,dd,7e,00,32 
‚30,b?,c5,7d,a6,c3,94,36,4d,41,53,4b 

140 DATA 2Ze,4Ff,46,c6,00,00,00,00,00,01,7 
B,a6,21,86,36,c3,d1,bc,00,3e,01,cd,S0,bb 
‚3e,01,cd,de,bb,37,cd,96,bb,37,cd,et,bb, 
c9,cd,ab,a5S,cd,d2,a5,cd,f9,a5,cd,le,a6,c 
d,40,a6,cd,64,a6,cd,Ba,a56,c3 


RSX-Befehle 


(Markus Adamski) 


5) !MPEN,wert 


Wie Nr. 2, jedoch wird die Bit-Maske des 
Text-Stiftes geändert. So können Zeichen 
zweifarbig gestrichelt dargestellt werden. 


6) !MPAPER,wert 


Wie Nr. 5, es wird bei diesem Befehl jedoch 
die Farbe des Hintergrundes geändert. 


Achten Sie beim Benutzen der Befehle 3 - 6 
darauf, daß nach den Befehlen keine PEN- 
oder PAPER-Kommandos stehen. Diese wür-. 
den nämlich die Wirkung des Befehls aufhe- 
ben. 


7) !MASK.OFF 


Dieser Befehl stellt wieder den Normalzustand 
her. 


LIESS EERSERELEESRRELERFERERFERELTTSEET MIN KARTE 


Bei meiner M-Code-Routine handelt es sich 
um eine RSX-Befehlserweiterung für den 
CPC 464, die das Schneider-Basic erweitert. 


1. !BOX,x1,v1,x2,y2,f 

Dieser Befehl zeichnet ein ausgefülltes Recht- 
eck. Es müssen 5 Parameter übergeben wer- 
den: 


a) xl,yl 
Diese beiden Parameter müssen eine absolute 
x/y-Koordinate auf dem Bildschirm enthalten. 


b) x2,y2 

Diese beiden Parameter enthalten die absolute 
Ausdehnung in x/y-Richtung. Hierbei müssen 
2 Besonderheiten beachtet werden: y2 muß 
glatt durch 2 teilbar sein und y2 muß mindes- 
tens um 2 niedriger als yl sein. Werden diese 
beiden Regeln nicht beachtet, stürzt der 
Rechner unweigerlich ab. Diese Bedingungen 
gelten ausschließlich für den BOX-Befehl. 


c) f 
In f muß die Farbe des Rechteckes stehen. 


2. !LINE,x1,y1,x2,v2,f 
Dieser Befehl zeichnet eine Linie von einem 


Punkt zu einem anderen. Es müssen ebenfalls 
5 Parameter übergeben werden: 


a) x1,y1 
Siehe !BOX-Befehl 


b) x2,y2 
Diese Parameter müssen die absolute x/y- 
Koordinate des Linienendes enthalten. 


eo) f 
Siehe !'BOX-Befehl 


3, YREC,x1,y1,x2,y2,f 


Dieser Befehl zeichnet ein Rechteck. Auch 
hier müssen 5 Parameter übergeben werden. 


a) xl,yl 
Siehe !'BOX-Befehl 


b) x2,y2 
Diese Parameter müssen die relative x/y- 
Ausdehnung des Rechtecks enthalten 


c) f 
Siehe !BOX-Befehl 


4. ISPEED,geschwindigkeit 
Dieser Befehl benötigt lediglich 1 Parameter, 


wobei dieser zwischen 3 und 4 liegt. Wird die 
’3° übergeben, so wird die Aufzeichnungsge- 
schwindigkeit des Kassettenrecorders auf 2700 
Baud erhöht. Wird die ’4’ übergeben, so wird 
die Aufzeichnungsgeschwindigkeit auf 3600 
Baud erhöht. Bei dieser Baud-Rate sollten nur 
gute FE-Kassetten verwendet werden. 


Jeder andere Parameter wird nicht angenom- 
men und hat auch keine Auswirkung auf die 
. Routine. 


5, ISCROLL richtung 

Auch dieser Befehl benötigt nur 1 Parameter, 
der zwischen O und I liegt. Wird die ’0’ über- 
geben, so wird der Bildschirm um eine Zeile 
nach unten gescrollt, wird die ’1’ übergeben, 
wird der Bildschirm um eine Zeile nach oben 
gescrollt. Andere Parameter werden nicht an- 
genommen. 


Wichtige Hinweise: 


Noch ein Hinweis, der für alle Befehle gilt: 
Wenn zuviele oder zu wenige Parameter über- 
geben werden, wird die Routine nicht ausge- 
führt. 


Die Routine kann nicht (!) im Speicher ver- 
schoben werden. Die Adressen sind aber so 
‚gewählt, daß genügend Platz für andere Pro- 
gramme im Speicher übrigbleibt. 


Schneider 
akt 


10 MEMORY &A4OF:sum=-O 

20 FOR 1=&A410 TOD &ASSC 

30 READ a$:POKE 1,VALC"&"+a$) 

40 sum=sum+VALC"&"+a$) 

SO NEXT 

60 READ z: IF z<>sum THEN PRINT"Fehler... 
"=SLOP 

70 CALL &ASBD 

80 DATA 15,84,c3,27,34,42,4f,d8,00,00,00 
‚00,00,01,10,34,21,19,a4,c3,d1,bc,00,fe, 
05,c0,dd,7e,00,cd,de,bb,dd,56,093,dd,5e,0 
8,dd,66,07,dd,6e,06,d5,cd,cO,bb,dd, 56,05 
‚dd,5e,04,dd,66,07,dd,6e,06,cd,f6,bb,dd, 
66,07,dd,6e,06,2b,2b,dd, 74,07,dd, 75,06 
90 DATA dd,656,03,dd,6e,02,ed,4b,2e,b3,dl 
‚0Ob,0b,ed,43,2e,b3,78,bc,20,c3,79,bd,20, 
bE.,c9 

100 DATA 7c,a4,c3,8f,a4,4c,49,4e,c5,00,0 
0,00,00,00,01,77,84,21,81,34,c3,d1,bc,00 
‚Fe,05,c0,dd,7e,00,cd,de,bb,dd,5e,0B,dd, 


56,09,dd,6e,06,dd,66,07,cd,c0,bb,dd,S5e,0 


4,dd,56,05,dd,6e,02,dd,66,03,cd,f6,bb,c93 
110 DATA bc,a4,c3,ce,a4,52,45,c3,00,00,0 
0,00,00,01,b6b7,34,21,c0,a4,c3,d1,bc,00,fe 
‚05,c0,dd,7e,00,cd,de,bb,dd,56,09,dd,S5e, 
08,dd,66,07,dd,6e,06,cd,c0O,bb,dd,56,05,d 
d,5e,04,21,00,00,cd,f9,bb,dd,56,03,dd, Se 
‚0o2,2a,2e,b3,ed,52,ed,5b,2c,b3,cd,f6 

120 DATA bb,dd,56,09,dd,5e,08,2a,2e,b3,c 
d,f6,bb,dd,56,09,dd,5e,08,dd,66,07,dd,6e 
‚O6,cd,f6,bb,c3 

130 DATA 25,35,c3,39,35,53,50,45,45,c4,0 
0,00,00,00,00,01,20,85,21,2b,a5,c3,d1,bc 
‚00,fe,01,c0,dd,7e,00,fe,03,28,0c,fe,04, 
c0,21,5d,00,3e,03,cd,68,bc,c9,21,7e,00,3 
e,0a,cd,68,bc,c3 

140 DATA 5d,a5,c3,72,35,53,43,52,4f,4c,c 
c,00,00,00,00,00,01,58,85,21,64,a5,c3,dl 
‚bc,00,fe,01,c0,dd,7e,00,fe,00,2B,0a,fe, 
01,c0,97,06,01,cd,4d,bc,c9,97,06,00,cd,“4 
d,bc,c9 

150 DATA cd,1d,a4,cd,85,a4,cd,c4,a4,cd,2 
£f,a5,cd,68,a5,c93, 456944 


LLERTTESTTESTEETTERTERTTRERTEETERTTTTTTETTTRRNKINTTT 
Meine folgenden drei Befehlserweiterungen 
können ebenfalls allein oder in Verbindung 
mit meinen anderen Erweiterungen im Spei- 
cher stehen. Sollen mehrere Erweiterungen im 
Speicher stehen, so müssen bei diesen die 
MEMORY-Befehle entfernt werden. 


'CLEAR 


Dieser Befehl leert den Tastaturbuffer. Dies 
ist besonders nützlich, wenn beispielsweise in 
einem Spiel der Joystick abgefragt wird und 
darauf ein INPUT-Befehl folgt. Beim INPUT- 
Befehl werden lästigerweise die Steuerzeichen 
mit ausgegeben. Wird vor dem INPUT-Befehl 
allerdings der CLEAR-Befehl gesetzt, wird 
der Tastaturbuffer gelöscht. Die BREAK-Tas- 
te wird nicht gesperrt. 


!WSCROLL l,r,o,u,richtung 


Mit Hilfe dieses Befehls ist es möglich, belie- 
bige Fenster vertikal zu verschieben, ohne 
diese Fenster mit dem WINDOW-Kommando 
definiert zu haben. 
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Dieser Befehl benötigt 5 Parameter: 
a) I;r: 


Diese Parameter bezeichnen die linke bzw. 
rechte Spalte des zu scrollenden Fensters. 
Achten Sie darauf, daß die Werte innerhalb 
des Bildschirms liegen. Die Spaltenzahl ist je 
nach Modus verschieden! Noch ein Hinweis: 
Die obere linke Ecke hat den physikalischen 
Wert 0,0! 


b) o,u: 


Diese Parameter bezeichnen die oberste bzw. 
unterste Zeile des zu scrollenden Fensters. 
Achten Sie darauf, daß die Werte nicht außer- 
halb des Bildschirms liegen, da der Rechner 
sonst abstürzt. 


c) richtung: - 


Dieser Parameter bezeichnet die Scrollrich- 
tung. Wird die 0 übergeben, scrollt das Fenster 
nach unten, wird die I übergeben, scrollt das 
Fenster nach oben. 


!'GETCHAR,3,x,y 


Mit diesem Befehl können die ASCII-Werte 
eines Zeichens an einer beliebigen Position 
innerhalb des Bildschirms geholt werden. Zu- 
erst muß die Spalten-, dann die Zeilen-Posi- 
tion übergeben werden. Der ASCII-Wert des 
Zeichens kann mit PEEK(&AO6E) ausgelesen 
werden. 


10 CALL &BC02:MODE 1:MEMORY &9FFF:check= 
(6) 

20 FOR 1=-8&A000 TO &AOBD 

30 READ a$:POKE 1,VALC”&”+a$):check=chec 
k+VUALC"&”+a$) 

SO NEXT 

60 IF check<>&3AC3 THEN PRINT”Fehler in, 
den Data-Zeile”:END 

70 PEN 1:PRINT”O.K. Alle Daten sind imS 
peicher” 

80 PEN 2:PRINT”Aufruf mit:";:PEN 3:PRINT 
’CALL &AOB4” 

90 PEN 1:PRINT”Absaven im Format: ” 

100 PEN 2: PRINT”SAVE”,;CHR$C34); "RSX”,CHR 
$(34);”,b,&a000,8&Be”:PEN i 

110 DATA 05,30,c3,19,30,43,4c,45,41,d2,0 
0,00,00,00,00,01,00,30,21,0b,a0,c3,di1,bc., 
‚00,cd,09,bb,fe,00,c8,18,f8,26,a0,c3,3c, 
a0,57,53,43,52,4f,4c,cc,00,00,00,00,00,0 
1,21,a0,21,2e,30,c3,d1,bc,00,fe,05,c0,dd 
‚46,00,dd,5e,02,dd,6e,04,dd,56,06,dd,65 

120 DATA 08,97,cd,50,bc,c9,58,20,c3,70,a 
0,47,45,54,43,48,41,d2,00,00,00,00,00,01 
‚53,80,21,60,30,c3,d1,bc,00,00,00,fe,02, 
c0O,bb,dd,66,02,dd,68,00,cd,75,bb,cd,60,b 
b,32,6e,a0,c9,cd,0f,a0,cd,32,a0,cd,64,a0 
‚ce3 


RR O3 ZH 
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Sicher standen Sie auch schon vor dem Pro- 
blem, für den Aufruf einer Routine, die ei- 
nige Parameter benötigt, eine MC-Routine 
schreiben zu müssen. Mit folgendem Befehl 
bleibt Ihnen diese Mühe erspart. Der Befehl 
sieht aus wie folgt: 


'!FIRM,adresse,HL,DE,BC, A 


Was die einzelnen Parameter bedeuten ist klar: 
Der erste Parameter bezeichnet die Einsprung- 
adresse, die folgenden die wichtigsten Z80- 
Register. Eine Liste der gesamten Ein- 
sprungadressen enthält das Data Becker Buch 
"CPC 464 Intern". 


Zur Anwendung: 

Es müssen immer 5 Parameter übergeben wer- 
den, sonst wird der Befehl nicht ausgeführt. 
Sie müssen auch immer in dieser Reihenfolge 
an den Befehl angehängt werden. 


Wollen Sie beispielsweise den Bildschirminhalt 
auf Kassette in einem Block abspeichern, so 
muß I!FIRM,&BCIE,&COOO,&4000,0,&16 
eingegeben werden. Der Bildschirminhalt wird 
jetzt sofort und ohne Kopfsatz abgespeichert. 


Zum Laden muß dann !FIRM,&BCAI, 
&COO0,&4000,0,&16 eingegeben werden. 


Achtung: Diese Art des Abspeicherns ist nicht 
in Verbindung mit einer Diskettenstation 
möglich. 


Mit diesen CALLs können auch beliebige an- 
dere Binärprogramme auf. Kassette abgelegt 
werden. 


10 MEMORY &9FFF:sum=O 

20 FOR 1=-&A0OBE TOD &AOCF:READ a$:POKE 1,V 
ALC"&”+a$) 

30 sum-sum+VALC”&”+a$):NEXT 

40 IF sum<>&1DEA THEN PRINT”Error in DAT 
A”:STOP 

50 CALL &AOSC 

60 DATA 33,30,c3,38,a0,456,49,52,cd,00,00 
‚00,00,00,01,Be,a0,21,938,a0,c3,d1,bc,00, 
90,00,fe,05,c0,dd,7e,00,dd,4e,02,dd,46,0 
3,dd,5e,04,dd,56,05,dd,6e,08,dd,66,09,22 
‚a6B,a0,fd,2a,36,a0,dd,6e,06,dd,656,07,Ffd, 
e9,c9 


PRRTERERERERTRLEDSTTTTTTTTRLLTELTERERERERELELLEDEEE) 


Mit dieser Routine ist es möglich, Multicolor- 
Sprites auf den Bildschirm zu bringen. Um ein 
Sprite zu erstellen, ist es sinnvoll, dieses erst 
in seiner endgültigen Form auf ein Blatt Pa- 
pier zu zeichnen, ähnlich dem Definieren ei- 
nes Zeichens beim SYMBOL-Kommando. Das 
Sprite jedoch kann groß sein. Am sinnvollsten 
ist es, ein Blatt mit Rechenkästchen (Milli- 
meterpapier) zu wählen und das Sprite gleich 
bunt zu zeichnen. Das erleichtert das Umwan- 
deln in DATA-Zeilen. 


Ein Rechteck auf dem Blatt entspricht einem 
Punkt auf dem Bildschirm. Das Sprite muß 
nun zeilenweise in DATA-Zeilen übergeben 
werden. In den DATA-Zeilen müssen die Far- 
ben der einzelnen Punkte stehen. Am Ende 
jeder Zeile muß eine ’16° stehen. Durch die 
’16° wird angezeigt, daß eine neue Zeile 
beginnt. Am Ende aller Zeilen, d.h. wenn das 
Sprite fertig ist, muß zweimal eine ’16° stehen. 


Wie das Sprite aufgebaut wird, zeigt folgende 
Grafik: 


Ursprung x 


J 


Doch nun zur Routine selbst. Sie kann an je- 
der beliebigen Stelle im Speicher stehen, da sie 
nur relative Sprünge enthält. Vorher sollte der 
Teil des Speichers, in dem die Routine steht, 
mittels ’MEMORY’ geschützt werden. Die 
Routine ist 58 Bytes lang und benötigt keinen 
weiteren Speicherplatz. Ein Basic-Lader kann 
aussehen wie folgt: 


10 MEMORY 40999 

20 FOR I=41000 to 41057 

30 READ A$: POKE I, VAL("&"+AS$S) 
40 next 

50 DATA..... 


Im folgenden steht die Variable adr immer für 
die Anfangsadresse der Routine. An eben die- 
se müssen einige Informationen übergeben 
werden. 


l. An der Adresse adr+l muß das Lowbyte 
der Adresse, an der die DATAs für das Sprite 
stehen, gepoked werden. An der Adresse adr 
+2 muß das Highbyte der Adresse stehen. 


2. In die Adresse adr+4 muß das Lowbyte der 
Y-Koordinate, an der das Sprite stehen soll, 
gepoked werden, in die Adresse adr+5 muß 
das Highbyte gepoked werden. 


3. In die Adresse adr+7 muß das Lowbyte der 
X-Koordinaten gepoked werden, an die 
Adresse adr+8 das Highbyte. 


: Aufruf der Routine mit ’CALL ADR’. 


Diese Routine ist nur im ’MODE O’ voll 
funktionsfähig, da in diesem Modus je 4 pixel 
zu einem Punkt zusammengezogen werden. In 
der Routine wird die X-Koordinate um 4 er- 
höht, daraus folgt, daß ein Punkt auf besag- 
tem Blatt Papier einem Punkt auf dem Bild- 
schirm entspricht. 


Im ’MODE 1’ müßten dann 2 Sprites überein- 
ander gelegt werden. Etwa nach folgendem 
Schema: 


= erstes Sprite 
zweites Sprite 


DD — 
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10 CLS:MEMORY 29999 

20 DATA 01,00,00,21,00,00,11,00,00,d5,e5 
‚eS,cd,f0,bb,c1,c5,f5,03,47,fl;,a8,cd,de, 
bb,c1,e1,d1,c5,eS,d5,cd,ea,bb,dl,el,c1,0 
3,0a,fe,10,20,09,03,0a,fe,10,c8,2b,2b,18 
,d2,.13,179,.13,13,18;cCE 

30 FOR 1=-30000 TO 30057 

40 READ a$:POKE 1,VALC"&"+a$1 

SO NEXT j 

60 FOR 1=-40000 TO 40129 

70 READ a:POKE 1,a 

80 NEXT 

90 POKE 30001,64:POKE 30002,156:PDKE 300 
04,&C8:POKE 30007, 8&C8B 

100 CALL &BCO2 

110 MODE O:CALL 30000 

120 DATA 0,0,0,0,0,0,12,12,12,12,12,12,1 
6 

130: DATA 0,2,0,2,2,12,12,12,12,12,12,L0., 
16 

140 DATA 0,0,0,0,12,12,12,12,12,12,12,12 
‚16 

150 DATA 0,0,0,0,12,12,12,12,12,12,12,12 
‚16 

160 DATA 0,0,0,0,0,9,9,9,3,3,16 

170 DATA 0,13,13,13,13,13,13,13,13,13,13 
13,13 ,13,13516 

180. DATA 13,5,9,4,4,5,554,4,9, 9,4, 4,555, 
13,16 

190: DATA: 13,5,5,4,4,5,9,4,4,95,554,4,9,5, 
13,16 

200 DATA 0,13,13,13,13,13,13,13,13,13,13 
.13,.13;.13;.13..16,.16 


Dementsprechend müssen im ’MODE 2° vier 
Sprites übereinander gelegt werden. Damit 
wären alle Erklärungen, die zu der Routine 
nötig sind, gegeben. (Markus Adamski) 


BRENNER NIE NER NENNEN NENNEN IE RENNER NIE RENEENERENERENERENERERENENE 1 OEL ZONE 


sRSX-Screenswap 


‘ 150 IF LEFT$SCId$,1)<>”&” THEN 190 
O !RSX-SCREENSWAP 


160 IF ps<>VALCd$S) THEN PRINT”Fehler i 
n Zeile ”zb:END 
ı2 neue RSX-Befehle 170 ps=0:ds$=”” 
180 IF i-e THEN 220: ELSE i=i-1:zb=zb+ 


10:60T0 210 
Es handelt sich dabei um ein Programm, das 130 as="g”+dg 


'es ermöglicht, in den laufenden Bildschirm ein 200 POKE i,VALcds>: Ps-ps+UAL(CdS) 


\Helpwindow ein- und wieder auszublenden, 210 IF i<e THEN NEXT i 


220 CALL &AOBE:PRINT CHRSC24) 
ohne daß der ursprüngliche Hintergrund zer- 230 


ıstört wird. Dieses kann z.B. in Mal/Konstruk- 240 
Itionsprogrammen, aber auch in Textverarbei- 250 DATA F1,FE,00,C8,&2B7 


: : 260 DATA DD,7E,056,C3,3E,A0,DD,35,8414 
Itungen oder sonstigen Programmen, die ab ,o para 06,DD,35,04,F5,18,43,21,&28D 
ıund zu einer Information bedürfen sehr nütz- 280 DATA 4F,S5F,22,05,A0,2A,6E AO, &2AD 


!lich sein. Durch RSX-Screenswap werden 22390 DATA 22,08,A0,F5,18,7B,00,DD,&32F 


| Betri stem ein- 300 DAIA 7E,02,57,82,82,82,32,70,&2FF 
ee RSX Befehle in n etriebssy 310 DATA AO,DD,7E,06,57,82,B2,82,&3DE 
u Ichance und Iremove. 320 DATA 32,71,A0,C9,DD,7E,02,57,83C0 


330 DATA 82,32,70,A0,DD,7E,06,57,&37C 
Die zugehörige Befehlssyntax lautet: Ichange, DATA 82,32,71,A0,C9,DD,7E,02,&3EB 


so DATA 32,70,A0,DD,7E,06,32,71,8&345 
ılinker Rand, oberer Rand, Breite, Tiefe. Da- ? 360 DAIA AO'C9 FE 04 CO CD 11 BC But 
Idurch wird der angegebene Bereich eingelesen, 370 DATA FE,00,CC,73,9F,FE,01 CC, &4A7 


l 
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| 
) 
) 
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| 
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j 
) 
I 
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I 
lauf dem Bildschirm gelöscht und tiefer im 380 DATA 88,9F,FE,02,CC,99,9F,21,844C | 
IRam abgelegt 330 DATA 00,00,06,50,DD,5E,04,16,81AB | 
} j 
) 
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400 DATA 00,19,10,FD,11,00,C0,19,8&210 
. . . 410 DATA ED,5B,71,A0,19,22,6E,A0,&3n2 
‚Dieser Bereich stellt jetzt das Helpwindow dar 420 DATA DD,7E,00,32,00,A0,2A,6E,&2C5 
und kann mit beliebigen Informationen be- u nn ec 
ıschrieben werden. 450 DATA 00,06,08,C5,2R,05,A0.22.81C4 
4560 DATA 73,A0,2A,08,A0,22,60,R0,8&313 
| 470 DATA 00,00,00,06,05,49,00,05,8179 

480 DATA 21,88,53,11,00,00,01,50,&15E 
remove bezieht sich immer auf das letzte4S0 DATA 00,ED,BO,00,00,00,11,50,8&1FE 


ıIchange und verlangt keine weiteren Para->00 DATA 00,2A,05,A0,19,22,05,A0,&1AF 


510 DATA 2A,08,A0,19,22,08,R0,C1,8&276 
Imeter. Es bewirkt, daß der angegebene Be-.>0 AIR ı0 DD 11,00,08,24,73.A0.8243 


ich wieder in den Bildschirm zurückver-530 DATA 19,22,05,A0,2A,6C,A0,19,8&22F 
Ischoben und das Helpwindow somit ausge-540 DATA 22,08,40,C1,00,10,B4,C3,&312 
(biendet Sir. 550 DATA 50,9F,DD,556,02,82,32,55,&32D 
560 DATA AO,DD,7E,04,DD,556,00,82,&3B4 

570 DATA 32,57,A0,CD,69,BB,E5,D5, &4D4 


Iverwandte Variablen in Zeile sB0 DATA 26,14,2E,05,DD,56,06,DD, &283 
I 120.130 590 DATA SE,04,25,2D,CD,66,BB,CD,&36F 
. 600 DATA 6C,BB,D1,E1,CD,66,BB,C9,8&590 
e 120,130, 180,210 610 DATA 00,F8,00,C0,50,00,00,88,&290 
Izb 120,160, 180 620 DATA 4B,7D,A0,C3,5A,9F,C3,53,844R 
Ips 200 630 DATA 9F,43,48,41,4E,47,05,52,8317 
Se 640 DATA 45,4D,4F,56,C5,00,6C,73,&2DB 
BE 650 DATA 75,A0,01,75,A0,21,BA,R0,&376 


660 DATA CD,D1,BC,C3,00,00,00,00,8&323 
IMit dem Demo für RSX-Screenswap "Demo-570 MODE 2:PRINT STRINGSCBO, ”*”) 


2.9990 9999.99 99929 III 9999 
0000006000600 0 000 00000000 


IRSX" werden die Möglichkeiten eindrucksvoll680 LOCATE 4,3: PRINT CHRS(7); 
7) 5 $ Jo B 8 630 PRINT” Dieses Programm stellt die Be 
ul f emonstriert. ( org raun) fehle !change sowie !remove zur Verfuegu 
ng.” i 
=] I 700 PRINT: PRINT STRINGS(C8O, ”*”)CHRSC24) | 
kam N 710 PRINT:PRINT”Die Befehlssyntax er 
20 ’* si ; 
az I 30 ’* (c) 1985 ” 720 PRINT STRING$CDS, ”-”): PRINT | 
| uf Iyo ’* by * 730 PRINT” change, Spalte, Zeile,Breite,Ti, 
| SEE | so ’%* Joerg Braun * efe.”:PRINT 
| 60 ’* Waldenburger Str.S * 740 PRINT”Dadurch wird der angegebene Bel 
— I 70 ’* 3330 Helmstedt * reich eingelesen, gespeichert” | 
un } | 80 ’* ” 750 PRINT”und aus dem Bildschirm gelosch, 
’ E: 
ı 110 ; 
. - IR FOUR 760 PRINT:PRINT”!remove bringt den gespel 
N 120 a 40784: e 41115: zb=250 h B h ä Sue den Bildschs 
Q 130 FOR i=a ID e icherten Bereich wieder au e | 
: | 140  READ ds Ems” 


IEEEEETTETTERER TRUE 
.’m 

“ DEMO 

’* Fuer 

7“ change 

’. & 

ET remove 

’ 

7 EU ee ee 


’ 


DN BREAK GOSUB 1000 
INK 2,7: 
1100 k=1 
110 MODE 0:DEG 
120 PAPER O:PEN 1 
130 °’ 
1140 FOR y=-300 TO 100 STEP -100 
150 DRIGIN 320,4 
‚150 FOR a=-320 TO 320 STEP 10 
170 MOVE a,50*C0SCa+b) 
1180 DRAUR 50,0, 
1190 - IF a <O AND y=200 THEN DRAW 
94*C0S(Ca), 100*SINCa),f 
IF £E<15 THEN F=f+1l ELSE £=2 
NEXT 
b=b+50 
NEXT y . 


WHILE a$="” 
FOR f=3 TO 15 
INK f,a MOD 26 
a=-at+tl 


ı> verzoegern 


O 
©) 
6) 
®) 
O 
©) 
©) 
®) 
®) 
O 
O 
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Auch in Frankreich gibt es den CPC - hier 
allerdings nicht mit dem Namen Schneider 
sondern unter dem Herstellernamen AM- 
STRAD. Alle drei Modelle sind verfügbar und 
die Anzahl der verkauften Geräte soll den 
Verkaufszahlen in Deutschland nicht nach- 
stehen. So fand auch nun in Paris im Januar 
eine erste AMSTRAD-Messe statt auf der es 
nicht nur alles rund um den AMSTRAD aus 
französischer Produktion zu sehen gab, 
sondern auch das englische und sogar das 
deutsche Angebot. Zum Beispiel hat Data- 
Becker einige seiner Bücher ins französische 
übersetzen lassen und vertreibt diese in 
Frankreich mit großem Erfolg. Weltbewegend 
Neues gab es nicht - der französische Markt 
hingt hier noch den deutschen Markt hin- 
terher wie wir dem englischen Markt. Das 
kann sich aber schnell ändern, da der 
AMSTRAD in Frankreich billiger angeboten 
wird als der Schneider bei uns und viele 
deutsche Hard- und Softwarehersteller auch 
aus Deutschland großes Interesse an diesem 
Markt zeigten. 


UB 370 
310 IF a MOD 90=0 AND k=O THEN soc" 
UB 560 | 
320 NEXT I 
330 WEND | 
340 ’ 

350 ’ I 
360 END | 
370 PAPER 2: !CHANGE,5,7,12,12 
380 k=0:a=a+l 

390 PRINT CHRSC7Y I 
400 FOR s=1 TO 7 ) 
410 READ STRINS 

420 z$(s)=strin$ I 
430 NEXT | 
440 datas=datas+1 I 
450 IF datas MOD 2-0 THEN RESTORE 590 | 
460 LOCATE 7,8:PRINT z$c1) 

+70 LOCATE 8,9: PRINT z$(c2) I 
480 LOCATE 7,10: PRINT z$(3) | 
490 LOCATE 8,13: PRINT z$(4) | 
500 LOCATE 7,15:PRINT z$(5) t 
510 LOCATE 10,16: PRINT z$(6) 

520 LOCATE 7,17:PRINT z$(7) I 
530 PAPER O j 
540 RETURN 
550 ’ 

S60 !REMOUE:k=1 I 
570 RETURN | 
S5B0 ’ ) 
590 DATA ” Graphik”,bleibt, erhalten, durcı 
h,”ichange”,&,”!iremove” 


CALL &BD13:CALL &BD19:REM etwa600 DATA (Cc) 1985,” ”,” von”,Joerg ,‚” Bi 


” 
caun Re »n m» 


‚300 IF a MOD 90=0 AND k=1 THEN GOS1000 CLS: !REMDUE: STOP | 


AMSTRAD-Messe 


in Paris 


1 GERÜCHTEKÜCHE AMSTRAD 


1 32 bit mit vortex 


I 
[ Das Gerücht, das AMSTRAD und vortex 
g einen AMSTRAD 32 bit Rechner bauen 
u hörten wir von verschiedenen Seiten. Was 
aan wahr ist können wir nicht sagen. 
Abwegig ist das nicht, da vortex über das 
1 nötige know-how verfügt und das Gerücht 
Ü nicht kommentiert. Es bleibt abzuwarten was 
| an diesem Gerücht wahr ist. 
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Wie die Drucker laufen lernen... 


Befehle, die dem EPSON Beine machen. 
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In der letzten Ausgabe waren wir stehenge- 
blieben beim Aufruf von Steuerbefehlen über 
sog. Fluchtsequenzen: CHR$(nn). Nun muß 
man berücksichtigen, welche Optionen man 
zur Auswahl für ein vernünftiges Funktio- 
nieren des Druckers benötigt: 


1) Es muß zunächst ein komplettes "Reset”- 
Kommando geben, mit dem der Drucker von 
der Programmierung der Software her in 
seinen Ursprungszustand wieder zurückgosotzt 
werden kann. Das ist hardwaremäßig zwar 
auch durch Aus- und Wiedereinschalten des 
Druckers zu machen, aber kommt für Fälle, 
wo das im laufenden Text passieren muß ja 
wohl nicht in Frage. 


2) Die vollständige Initialisierung des Druckers 
hinssichtlich gewählter Papierformate (Einzel- 
blatt, DIN-A-4-Papier oder Papier in engl./ 
amerikanischem Zollformat, Papierbreite für 
max. 80 oder 132 Druckzeichen),. der Papier- 
bogenlänge in Zeilen, der beschreibbaren Flä- 
che des Papiers in Zeilen mit Aussparung von 
Leerzeilen am Papierkopf und -fuß, des Zei- 
lenabstands, des Einrückens am linken oder 
rechten Rand der Zeile, etwaiger Tabulator- 
sprünge in vertikaler oder horizontaler Rich- 
tung ist zwingendermaßen immer der zunächst 
allererste Schritt, bevor man mit den eigent- 
lichen Druckerkommandos für die Drucktypen 
-Befehle loslegen kann. Die rechtzeitige Pa- 
pierendeerkennung mit Blattvorschub zur 
nächsten Seite wollen wirnicht vergessen. 


3) Alleine mit der Festlegung unterschiedli- 
cher Schriftgrößen und Schriftcharaktere (z.B. 
PICA, Kursiv, etc.) ist es wohl nicht getan. 
Man will evtl. zwischendurch Texte oder nur 
einzelne Buchstaben oder Worte unterstrei- 
chen, Buchstaben oder Zahlen im indizierten 
Modus (Tiefstellung) oder potenzierten Modus 
(Hochstellung) ausgeben, Kleingedrucktes als 
Randglosse oder Fußnote ausgeben, etc. 


Man muß also zunächst die zu bedruckende 
Seite formatieren. Und das erfolgt wegen der 
engl. Maßeinheiten, die Drucker fast alle 
zugrundelegen, erst mal ein umdenken. Der 
Zeilenabstand wird in <Inch>, die Zeichon- 
breite in <Pitch> gemessen. Es gibt regelrecht 
"Speziallineale"* für diese Maßeinheiten, die 
der Profi im Programmieren unerläßlich be- 
nötigt, um Seiten zu formatieren, also die 
Blatteinteilung z.B. für Eindrucke von Text- 
feldern in Formulare, Firmenbögen, etc. "geo- 
graphisch" richtig hinzukriegen. 


Wir haben nebenstehend zwei Seiten eines sol- 
chen "Lincals" einmal abgedruckt, um erstens 
mal eine "Messlatte” als Hilfe anzubieten und 
zweitens zu verdeutlichen, wovon wir über- 
haupt sprechen. 


Wie wir mit einem Griff ins Bücherregal im 
Lexikon festgestellt haben, beträgt unser Wert 
für I Inch = 25,4 mm. Die meist gebräuchli- 
che Einheit für den Zeilenabstand ist das Maß 
6 Lines per Inch (Zeilen pro Inch). Und siehe 
da: ein Blick auf unser Lineal zeigt, daß wir 
dort eine solche Einteilung haben. "Normales"” 
Computer-Endlospapier hat exakt 72 Zeilen 
im Format 6 Lines per Inch. DIN A-4-Papier 
ist etwas kürzer und bringt es nur auf 70 sol- 
cher Zeilen. Da heißt es also: aufgepaßt beim 
Initialisieren der Papierformat-Parameter! 


Aha, und noch etwas fällt bei genauem Hinse- 
hen auf den beiden Linealseiten auf: 6 Zeilen 
per Inch = 1 Inch entsprechen genau der An- 
zahl von 10 Druckzeichen waagerecht in der 
Maßeinheit 10 Pitch (= 10 Zeichen per Inch). 


Somit haben wir auch schon herausgefunden, 
was <Pitch> bedeutet: Anzahl Zeichen pro 
Inch. Es gibt das nämlich noch Schriftbreiten 
wie <PICAS>, 12 und 15 Pitch, unter mehre- 
ren, versteht sich! 


IE 


Normalerweise wird, soweit nicht Engschrift- 
oder Winzigschriftmodus (über Kombination 
mit Index- oder Potenzierschreibweise mit 
Engdruck möglich) gedruckt wird, mit einer: 
waagerechten Zeichenbreite von 10 Pitch per 
Inch gearbeitet. 

Im Folgenden wollen wir uns für die Darstel- 
lung der EPSON-Steuercodes, die jedermann 
natürlich gegen diejenigen seines Druckers 
gemäß Steuercode-Angaben im dortigen 
Handbuch austauschen kann (auf andere Stan- 
darddrucker-Steuercodes kommen wir noch zu 
sprechen), erst einmal auf eine gemeinsame 
Sprachregelung einigen: 


Die Darstellung: ESC A <n> oder CHR$(27); 
<nn> bedeutet: CHR$(27) ist der Wert für 
<ESC> und ist in dieser Form für die Druk- 
kerparameter-Ansteuerung erforderlich {(Bei- 
spiel "Reset" : <PRINT #8, CHR$(27);"@";> 
oder <PRINT #8, CHR$(27); CHR$(64);>|. 
Der Wert <nn> in spitzen Klammern bedeutet 
immer eine wahlweise Eingabeoption, meist 
dezimal. 


Nochmal zur Erinnerung: der oben in Anfüh- 
rung ausgedruckte Wert für den "Klammeraf- 
fen” (At-Sign) kann stattdessen auch mit dem 
Character-String mit nachfolgendem Dezimal- 
wert des betreffenden Zeichens ausgegeben 
werden. Beides bewirkt ein und dasselbe! 


Das Übertragen von Steuerzeichen 


Die Ausgabe über *den Druckpuffer wird 
durch Senden von Steuerzeichen wie <CR>, 
<ESC>, etc. an den Drucker gesteuert. Steu- 
erzeichen lassen sich im weitesten Sinn in zwei 
Kathegorien unterteilen: 


a) Einzelsteuerzeichen (1-Byte-Steuerzeichen) 


Beispiel : PRINT #8, CHR$(7); (Piepston am 
Drucker] 


b) Fluchtsequenzen als Zeichenfolge 


Beispiel : PRINT #8, CHR$(27);"-";CHR$(1); 
(Unterstreichen einschalten] 


Sämtliche nachstehenden Steuerzeichen be- 
dürfen eines ihnen voraufgehenden PRINT- 
Befehls mittels <PRINT #8,....>. 


Als erstes wollen wir eines Liste der Ein- 
Byte-Steuerzeichen anführen: 


Name: CODE : Funktion: 

BEL CHRS$S(7); Druckersummer ertönt 

Bs CHR$S(8); Rückschritt (Backspace) 

CAN CHRS$S(24); Zeile I. Druckpuffer löschen 
HT CHRS(9); Horizontaler Tabulator 

LF CHR$(C10);Zeilenvorschub (Line Feed) 

vr CHRS$SC11);Vertikaler Tabulator 

FF CHRS$S(12);Seitenvorschub (Form Feed) 

CR CHR$S(C13);Wagenrücklauf(Carriage Return) 
so CHR$(C14);Breitschrift (nur 1 Zeile) 

sı CHRS$SC15);Schmalschrift (mit SO gedehnt) 
Doc1 CHRS(C17);Druckerselektion 

Dc2 CHR$(C18);Löschen d. Schmalschrift 

Dc3 CHR$(19);Aufheben d. Druckerselektion 
DC4 CHR$S(20);Löschen d. Breitschrift 

DEL CHRS$S(C127);Löschen letztes Zeichen 


Wir wollen hier zunächst hauptsächlich die 


Funktion nicht garantiert werden. 2 i 
5 die mit der Zei- 


Nun noch einige Anmerkungen zu den vorste- <DC2> löscht den mit <SI> geschalteten 

henden Codes. Der Name der obigen Codes ist Schmalschriftmodus. FF - 

nicht in Verbindung mit <ESC> zu sehen: also wi: z 

wäre z.B. <PRINT #8,CHR$(27);CHR$(7);> <DC3> hebt die Druckerselektion von <DC1> 3 z 

falsch! auf und läßt den Drucker anhalten, bis er ° o 
wieder ein <DC1>-Signal erhält. 

<BS> veranlaßt die Ausgabe des Druckpuffers ß 

und die Position des Schreibkopfes wird um <DEL> löscht das letzte Zeichen, bzw. den 

eine Spalte (1 Zeichen) zurückgesetzt. Im letzten Befehl im Druckpuffer. == = 

Druckmodus "gedehnte Schrift" wird um zwei = = 

Zeichen rückwärts gesprungen. Wenn der Die Fluchtsequenzen mit <ESC> = == 

Druckmodus gewechselt wurde, kann diese =e = 


Fluchtsequenzen aufführen, 


<CAN> löscht die aktuelle Zeile im len- und Blattsteuerung etwas zu tun haben. se 
Druckpuffer. Nachstehende Tabelle gibt eines erste Über- 

sicht: PR 
<HT> löst einen Tabulatorsprung aus, der Name Code (PRINT #8,..) Funktion : 
zuvor mit <ESC D> (wird noch besprochen) ee Boneuunennnennenenen nn en nn nn nn 
voreingestellt wurde. Im Modus "gedehnte ESC SO CHRSC2TY;CHRSCI4LY; Breitschrift-Dauer funkt ion<So> 
Schrift" sind TAB-Sprünge doppelt so breit. ESC SI CHRSC2TI;CHRSCISY; Schmalschrift wie <SI> 
Beim Einschalten werden TAB-Stops alle 8 ESc O0 CHRS(C27);"0"; Zeilenabstand 1/8"=8 Zeil./Zoll 
Spalten gesetzt. Sind die Stops nicht vorher ESc 1 CHRSC27Y; "1"; Zeilenabstand auf 7/72" 
definiert waren, oder die vordefinierten ESc 2 CHRS(27); "2"; Zeilenabstand 1/6"=6 Zeil./Zoll 
gelöscht wurden. Als absolute Werte ändern ESC 3 CHRS(27); Zeilenabstand auf n/216tel Zoll 
TAB-Stops aich nicht beim Ändern des ESC 4 CHRS(27); Alternativzeichensatz ein 
Druckmodus. Tabulatorstops werden beim ESC 5 CHRS(27); ESC 4 zurücksetzen auf Normal. 
Modus <ESC I> gelöscht. ESC 6 CHRS(C27); Erweiterung druckbarer Zeichen 

ESC 7 CHRS(C27); ESC 6-Status löschen 
<LF> gibt den Inhalt des Druckpuffers aus ESC 8 CHRS$(27); Abschalten Papierendeerkennung 
und löst einen Zeilenvorschub aus. Besteht die ESC 9 CHR$(27); ; Einschalten Papierendeerkennung 
Zeile aus Leerzeichen oder ist leer, so wird ESC ı CHRSC27);"I1";CHRSCH); Wahl des Druckmodus (0 - 63) 
nur Zeilenvorschub getätigt. <LF> löscht den ESC A CHRSC2T);"A";CHRSCH); Zeilenabstand auf n/72-tel Zoll 
Modus "gedehnte Schrift" <SO>. Kommen die ESC 8 CHRS(C27);"B";CHRSCNI) Vertikaltabulatorstops setzen 


u 


auszugebenden Daten in der Folge <CR> <LF> CHRS(n2);.. . - „.CHRSECNK)S;CHRSCO)Y 


an, wird bei <CR> der Zeileninhalt ausgege- ESc cC CHRSC27) ;"C";CHRSCH) Formularlänge setzen (n-Zeil.) 
ben und dann der Zeilenvorschub ausgelöst. ESC co CHRS(27);"C";CHRSCO); Formularlänge (Seite n-Zoll) 
Da der CPC mit jedems<CR> gleichzeitig ein setzen (1 < n > 22) 

<LF> an den Drucker sendet, ist der DIP- ESc D CHRS(C27);"D";CHRSCH1); Horizontaltabulator setzen 


Schalter für <LF> auf <OFF> zu setzen, CHRS(N2);.. .CHRECNK)S;CHRSCO); 


ansonsten gibts doppelte Zeilenvorschübe. ESC J CHRSC27TYZ"J"SCHRSCH); Papiervorschub n-216-tel Zoll 
ESC N CHR$S(C27T) "N" ;CHRSCH); Perforation überspringen 
<VT> gibt den Inhalt des Druckpuffers aus ESC oO CHRS$(27); ESC N-Modus löschen 
und danach erfolgt ein schneller Sprung zu Esc L CHRS(27); CHRSCH); Linker Rand auf n-te Spalte 
den mit <ESC B> bzw. <ESC b> zuvor einge- EsSc a CHRS(27); CHRS(N); Rechter Rand auf n-te Spalte 
stellten TAB-Stops. Ohne TAB-Stop-Defini- EsSc < CHRSC27);"<"; Zeilendruck unidirektional 
tion erfolgt ein einfacher Zeilenvorschub. ESC U CHRSC27);"U";CHRSCH); Druck unidirektional (u) der 
Nach diesem Zeichen wird der Modus "ge- bidirektional (b) 
dehnte Schrift" <SO> gelöscht. Der vertikale n = 0 oder 48 dam (b) 
TAB-Sprung wird höchstens bis zum Blatt- |. n = 1 oder 49 damn (u) 
anfang der nächsten Seite vorgenommen. ESC j CHRSC27);"Jj";CHRSCH); Papierrückwärtstransport um 


<FF> bewirkt die Ausgabe des Druckpufferin- 
halts und abhängig von der vordefinierten 
Formularlänge (Papierseitenlänge) wird zum 
Anfang der neuen Blattseite vorgezogen. Ein 
Modus gedehnte "Schrift" wird gelöscht. 

<CR> gibt den Druckpufferinhalt aus. Liegt 
der AUTO FEED XT (Pin 14 des Interface- 
Steckers) auf LOW, erfolgt automatischer 
Zeilenvorschub nach <CR>. <CR> mit nach- 
folgendem Zeilenvorschub löscht Schriftmodus 
"gedehnte Schrift" Ist der Druckpuffer leer 
oder enthält bloß Leerzeichen, bewegt sich der 
Druckkopf nicht. In diesem Falle erfolgt bei 
AUTO FEED XT jedoch ein Vorschub zur 
nächsten Zeile. 


<SO> bewirkt, daß alle Zeichen nach <SO> in 
doppelter Breite (und Höhe) gedruckt werden. 
Diese Schriftmodus wird durch die Befehle 
<LF>, <FF>, <VT>, <DC4>, <ESC !> oder 
<ESC W> gelöscht und gilt also maximal für 
eine Zeile (für Wiederholungen muß vor jeder 
neuen Zeile <SO> signalisiert werden). Man 
kann normale Schriftzeichen und gedehnte in 
einer Zeile mischen. 


<SI> gibt auch den Druckpufferinhalt aus und 
vordichtot die auf <SI> folgenden Zeichen auf 
Schmalschriftmodus (16,5 Zeichen/Zoll). Der 
Schmalschriftmodus wird durch <DC2> oder 
<ESC !> gelöscht. Wird zusammen mit <SI> 
der Befehl <SO> abgesandt, so wird eine "ge- 
dehnte Schmalschrift" gedruckt (6 Zeichen/ 
Zoll). 


<DC1> selektiert den Drucker dergestalt, daß 


er nach Abgabe dieses Zeichens zum Daten- 


empfang bereit ist. Ist der Drucker bereits 
selektiert, wenn <DClI> signalisiert wird, wer- 
den die im Druckpuffer vorhandenen Daten 
unterdrückt. 


n-216-tel Zoll (nur FX-801) 


Weitere Fluchtsequenzen bestimmen z.B. die 
Schrifttypen, Index-Druckmodus und Potenz- 
Druckmodus, Druckausgabe im Bitbildmuster 
für Graphik, Laden eines selbst definierten 
Zeichensatzes aus dem Zeichengenerator, etc. 
Doch darauf kommen wir später noch. Hier 
zunächst die in der Tabelle gezeigten Sequen- 
zen: 


<ESC SO> führt Breitschrift aus, genau wie 
<SO>, jedoch nicht eine Zeile lang mit an- 
schließendem Auto-Reset in Normalschrift, 
sondern solange, bis ein anderes Schriftbild- 
kommando kommt. 


<ESC SI> setzt den Schmalschriftmodus, bis 
anderer Druckmodus eingestellt wird. 


<ESC 0> setzt den Zeilenabstand auf 1/8-tel 
Zoll, was 8 Zeilen/Zoll oder 8 LPI (Lines per 
Inch) entspricht. 


<ESC 1> setzt den Zeilenabstand auf 7/72-tel 
Zoll, wodurch die Zeilen ganz dicht unterein- 
ander liegen und sich mit der Fuß- und 
Kopflinie der Großbuchstaben berühren. 


<ESC 2> bringt den Zeilenabstand auf den 
Normalabstand von 1/6-tel Zoll oder 6 
Zeilen/Zoll = 6 LPI. 


<ESC 3> setzt den Zeilenabstand in 1/3-tel 
Dot-Abständen genau und mit einem Abstand 
von n/216-tel Zoll. Damit kann man jede zu 
druckende Zeile z.B. in einem Formular genau 
hinsichtlich Zeilenabstand justieren. 


<ESC 4> schaltet um auf Alternativzeichensatz 


des Zeichengenerators. Ist 
generator geladen, bewirkt 
Umschaltung auf Kursivschrift. 


Standardzeichen- 
<ESC 4> die 


001 06 08 
MM 


otl 


021 


Ios/olelzl eleldolslolelzlffelelzlslsinlelz| N PORDERBEN MN Jolsilelzlfelaluislsin 
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4 
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A 


DE 
Mm 
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© 
=) 
cE 
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ıN 
ın 


DRUCKER 
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Wie die Drucker laufen lernen... 


<ESC S> löscht den Alternativzeichensatz und 
kehrt zum Normalzeichensatz zurück. 


<ESC 6> erweitert die druckbaren Zeichen. 
Durch Eingabe von dieses Steuerzeichens 
werden die ASCII-Codes 80Hex bis 9F sowio 
FF zu druckbaren Zeichen, um diese entweder 
vom Benutzer definierbar zu machen, oder die 
EPSON-eigene Tabelle von 80Hex bis 9FHex 
mit internationalen Zeichensätzen druckbar 
werden zu lassen. 


<ESC 7> löscht die mit <ESC 6> freigegebe- 
nen Codes. Danach sind die Zeichen ab 80Hex 
wieder nicht mehr druckbare Steuerzeichen. 


<ESC 8> schaltet die Papierendeerkennung ab 
und versetzt den Drucker somit in die Lage, 
bis zum Ende des letzten Blatts zu drucken. 
Die kann man auch durch Setzen der DIP- 
Schalter 1.3 auf <ON> bewirken, wie wir vom 
letzten Mal hoffentlich noch wissen. 


<ESC 9> löscht die <ESC 8>-Funktion und 
schaltet auf  <OFF-LINE>, wenn das Papier zu 
Ende geht. Steht der DIP-Schalter 1.3 auf 
<OFF>, so ist die standardmäßige Einstellung. 
Dies ist bei Einzelblattdruck wichtig, weil 
ohne <ESC 8> nicht bis zum Ende des Blattes 
gedruckt würde und der Drucker im unteren 
Blatt-Drittel mit der Fehlermeldung <OFF- 
LINE> anhielte. 


<ESC !> verschafft die Möglichkeit aus 64 
verschiedenen voreingestellten Druckmodi, die 
Schriftmodus-Kombinationen darstellen, aus- 
zuwählen. Die Zahl "n" muß dabei > O und < 
63 sein. Mit einer FOR-NEXT-Schleife kann 
man alle diese Modi einmal als Muster aus- 
drucken lassen. 


<ESC A> setzt den Zeilenabstand auf n/216- 
tel Zoll. 


<ESC B> kann bis zu 16 Vertikal-Tabulator- 
stops (n = 1 bis 16) setzten, die mit Eingabe 
von CHR$(0) beendet werden. Da die Stops 
aus den angegebenen Zeilennummer und dem 
aktuellen Zeilenabstand errechnet werden, 
bleiben die Tabulatorpositionen auf der Seite 
unverändert, wenn der Zeilenabstand ver- 
ändert wird. Die Zahl "n" muß > 1 und < 254 
sein. 


<ESC C> setzt die Formularlänge des Blattes 
in Zeilen, wobei die Zahl "n" > I und < 127 
sein muß. Die Seitenlänge wird ein Absolut- 
wert, der sich aus n-mal Zeilenvorschub 
ergibt. Dabei muß natürlich vorher der Zei- 
lenabstand genau festgesetzt werden. 


<ESC CO»> setzt die’ Seitenlänge statt in An- 
zahl Zeilen in "n"-Zoll absolut fest. Seiten- 
vorschub und Überspringen der Perforation 
bei Endlospapier wird entsprechend dieser 
Vorgabe ausgeführt. 


<ESC D> setzt maximal bis zu 32 horizontale 
Tabulatorstops, wobei die Zahl "n" die jewei- 
lige Druckspalte benennt. Die Tabulatorposi- 
tion wird als Absolutwert gespeichert, der sich 
aus der Spaltenposition "n" und der aktuellen 
Schriftbreite (z.B. bei Schmalschrift) ergibt. 
Die Zahl "n" kann bei Normal-Schrift bis zum 
Wert 80 und bei Schmalschrift bis zum Wert 
137 gehen. 


Damit wollen wir es für diesmal bewenden 
lassen und den Rest incl. Beispiellistings für 
die angesprochenen Funktiomnen in der näch- 
sten Ausgabe nachliefern. Probiert schon mal 
selbst, ob Ihr die Papierformate richtig jus- 
tieren könnt. -bk.- 
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158 REM <<< Bildaufbau und Zufall >>> 
159 REM > 

160 IF live=-O THEN 131 ELSE FOR n=-1 TO 5 

00:NEXT:CLS 

161 CLS #1:PEN #1,1:PRINT #1,USING "Punk 

te: ####”;sc;:PRINT#1,” noch”; live; "Tau 

ben zu retten”; 

162 ye=-INTCRND*14)+5:FOR n=ye-1 TO ye-3 

STEP -1:LOCATE 38,n:PEN 2:PRINT CHRSC207 
):NEXT 

163 LOCATE 38,ye:PEN 3: PRINT CHR$(C209):P 

EN 2 

164 FOR n=-ye-2 TD ye-3 STEP -1:LOCATE 37 
‚n:PRINT CHR$(222):NEXT 

165 LOCATE 38,ye-4: PRINT CHRSC222) 

166 LOCATE 37,ye+t1:PEN 3:PRINT CHRSC216) 
+CHRSC216) 

167 PEN 1 

168 FOR n=16 TO 24:FOR b=12 TD 24:LOCATE 
n,b:PRINT CHR$ (207):NEXT:NEXT 


163 FOR n=17 TO 23: LOCATE n,11:PEN 3:PRI 
NT CHRSC143):NEXT:LOCATE 16,11:PRINT CHR 
$c214):LOCATE 24,11:PRINT CHR$C215) 

170 FOR n-17 TO 23:LOCATE n,11:PRINT CHR 
$(143):NEXT:LOCATE 16,11:PRINT CHRSC214) 
:LOCATE 24,11:PRINT CHR$C215) 

171 FOR n=17 TO 23 STEP 2:FOR b=13 TO 24 
STEP 2:LOCATE n,b: PRINT CHRSC143):NEXT: 
NEXT 

170,xX=1 

173 d=INTCC3-9)I*RNDC1))I+9 

174 v=INTCC7-113*RNDC1))+11 

175 LOCATE 27,v:PEN 2:PRINT a$ 

176 LOCATE 11,v-2:PEN 2:PRINT a$ 

177 LOCATE 17,d:PEN 2:PRINT a$ 

178 y=INTCC3-18)I*RNDC1))+18B 

179 PEN 3: LOCATE 1,y+1:PRINT CHRS(C216);C 

HRSC216):PEN 1:LOCATE 1,4:PRINT q$:FOR n 

=1 TOD S00:NEXT 

180 xs=INTCRND*20)+10 

181 LOCATE xs,2:PEN 3:PRINT ”5”: RETURN 


Software aus England 


Schneider-aktiv berichtete in Heft 11 aus- 
führlich über die Möglichkeit, Programme 
direkt in England zu ordern und so viel Geld 
zu sparen. Da diese Aussicht verlockend ist, 
schrieb ich sofort an das Britische General- 
konsulat, um an die Adressen der Lieferanten 
in England zu kommen. 


Eine knappe Woche später erhielt ich ein 
Schreiben der Handelsabteilung des Konsulats. 
Dieser Brief enthielt unter anderem einen 
Auszug aus einem englischen Lieferantenver- 
zeichnis, aus dem ich mir nun die Adressen 
der Softwarelieferanten heraussuchen konnte. 


Großbritannien scheint sowieso das Mekka 
aller CPC-Freaks zu sein. Denn dort gibt es 
Neuerscheinungen im Soft- und Hardwarebe- 
reich schon, wenn wir davon noch träumen. 
Nachstehend einige Beispiele: 


Software auf ROM-Modulen wird in England 
bereits erfolgreich verkauft. Der Vorteil ist 
klar: Die Programme halten über längere Zeit 
und müssen nicht erst von Kassette geladen 
werden. 


Adventure-Freaks in England haben gut la- 
chen. Für sie gibt es für ca. 20 Pfund einen 
Grafik-Adventure-Creator, mit dem sich ei- 
gene Adventures erstellen lassen (Incentive- 
Software, 54 London-Street, Reading RGIl 
45Q). 


Wie Sie sehen, kann es lohnend sein, sich 
einmal auf dem britischen Markt umzusehen. 
Wenn Sie jetzt noch wissen möchten, wie Sie 
an die Produkte kommen, schauen Sie in Heft 
ll von Schneider-aktiv. Dort sind Muster- 
schreiben veröffentlicht, die Ihren Einkaufs- 
bummel in England möglich machen. 
(Andreas Müller) 


n 


EIN 


Adressen von Softwarelieferanten in England 


ASC Computer-Services, 8A Carlton Cresdent, Southampton, SO1 2EZ 
Adserve Computing, 184-186 Stratford Road, Shirley Solihull B90, 3BQ 
BIS Applied Systems, 199 Westminster Bridge rd., London SE 1, TUT 
BARIC Computing, Forest Road, Feltham, Middx TW13 7EJ 
BLYTH Computers Ltd., Wenhaston, Halesworth, Ipswich, IP 19 9DH 
The Byteshop, 324 Euston Road, London NWI 
The Byteshop, 92 a Upper Parliament Street, Nottingham 
C.P. Programming Ltd., Wood St., Higham Ferrers, North.shire NN9 8HH 
Cadcentre Limited, Madingley Road, Cambridge CB3 OHB 

Camelot Software Ltd., 9 Barlett Court, Lynx Trad. Estate, Yeovil BA202NZ 
Comart Ltd., Little End Road, Eaton Socon, Huntingdown PE193JG 
Commercial Computer Ltd., Walton Hse. Central Estate, Staines TW18 4UX 
Cook Associates Ltd., 38 Station Road, Portslade BN4 1AG 

Counting House Computer, Fornham House, Bury St.Edmunds IP31 ISR 

DRG Business Machiness, Lynx Crescent, Winterstoke Road, Weston BS24 9DN 
Damien M.A. Ltd., 86 Hotblack Road, Norwich, Norfolk NR2 4HN 

Datasolve Ltd., 99 Staines Road West, Sunbury on Thames TW16 TAH 
Dectrade Ltd.Network Hs.20 Ludlow Hill Road, West Bridgeford, NG2 6HF 
Digital Technology Ltd., Clark House, Kings Road, Fleet GU13 9AL 

F.DS. Ltd., 2 Market Street, Braintree, CM7 6XT_ 

Fourth Dimension Prod., Burnett Road, Streetfly, Sutton Coldfield B74 3EL 
HRD Developements Ltd., 44/46 Northumberland Street, Edinburgh EH3 6JE 
IMACS U.K., 11 Liverpool Gardens, Worthing NBIl IRY 

ITL Kathmill Ltd., The Old Courthouse, New Road, Chatham ME4 4QJ 
Jentech Services Ltd. Nordley, Bridgnorth WV 16 4SU 

Langton Electronic Ltd., 133 Oxford St., London WIR ITD 

Linn Products Ltd., 235 Drakemire Drive, Glasgow G45 95Z 

Lipman Management Ltd., 54-70 Moorbridge Road, Maidenhead SL6 8BN 
MDSS, 51 The Pantiles, Tunbridge Wells TN2 STE 

McGuffie Brunton, Refuge House, 2-4 Henry Street, Bath BAI 1JT 

Micro Focus Ltd., 58 Acacia Road, St. Johns Wood, London NW8 6AG 

Micro Focus, Aurom House, 16/17 Bridge Street, Swindon SNI IBU 
Micro-Products, 87-89 Saffron Hill, London ECIN 8QU 

Microputers Ltd., Borwick Hold House, Crook, Kendall LA8 9HS 

Open Computer Soft, 3 Cavendish-Street, Brighton BN2 IRN 


PME Ltd., Lioyds Bank Chambers, 132 Uxbridge Road, London W73SN 
Paxton Computers, 28 New Street, St.Neots, Huntingdon PE19 1AJ 

PMA Consultants Ltd., Rhodaus House, Victoria Road, Horley RH6 7AS 
Protek International, High Street, South Queensferry, Edinburgh EH30 IHW 
S.E.E.D., Portland House, Coppice Side, Brownh., Walsall, WS8 7EX 
Supersoft Intern.Ltd., 61 The Pantiles, Tundridge Wells TN2 STE 
Systematics Ltd., Essex House, Cherrydown East, Basildon SS16 5BT 
Systems Designers, Systems House, 105 Fleet Road, Fleet GUI3 8NZ 
Tangram Computer Aided, 5 Siddeley Way, Royal Oak, Daventry NNII 5PA 
Trifid Software, Chelford Road, Somerfield Booths, Congleton CW12 2LY 
(Andreas Müller) 


DREIECKE FÜLLEN 


Im Basic der Schneider CPC 464 Version ist 
leider kein Befehl zum Ausfüllen von Körpern 
vorhanden. Mit diesem Programm lassen sich 
OÖ Dreiecke jeder Art ausfüllen. 
OÖ Das Programm eigent sich vor allem zur Ein- 
bettung in Grafikprogramme. Hat man das 
[®) Programm gestartet, so müssen zuerst die 
Koordinaten der drei Eckpunkte angegeben 
werden. Diese müssen bei der X-Koordinate 
®) zwischen I und 640 und bei der Y-Koordinate 
zwischen 1 und 400 liegen. Das Programm un- 
OÖ terscheidet zwischen drei verschiedenen Drei- 
ecksarten. 


®) 


OÖ Grad. 
2. Alpha oder Beta sind größer 90 Grad. 


Höhe. 


Is REM === DFILL ++» 

CLEAR:MODE ı 

LOCATE 3,2: PRINT"Dreiecke fuellen” 
PRINT: INPUT" a CX-Achse, Y-Achse)";a,a 


PRINT: INPUT” b CX-Achse, Y-Achse)";b,b 


a PRINT: INPUT” @ CX-Achse, Y-Achse)";c,c 
Ö Iso mooe ı : ; 
Is2 PLOT a,al:DRAW b,b1:DRAW c,c1:DRAW a, 
‘al 
Iss x=-a:xx=-b 
[®) 70 IF al<>b1 THEN GOSUB 240 
80 IF c<a OR c>b THEN GOTDO 165 
|30 REM ===»... Moeglichkeit 1 
92 anf-MAXCcal,b1) 


100 d=-Cc-x9/Cc1-anf):dd=-(xx-ceI9/Cc1l-anf): 
plus=-x:minus=xx 


O 


lı10 FOR y=-anf TO cı 

120 PLOT plus,y:DRAW minus,y 

130 plus=-plus+d:minus=minus-dd 
Ö ı40O NEXT 

lı4S CALL &BB18 

ı50 GOTO 10 5 

lı60 REN «u. Moeglichkeit 2 


anf=-MAXCal,b1l) 


(®) 1170 IF @<x THEN d=-cx-e)9/Cc1-anf):dd=-Cxx- 
e)/Cc1l-anf) 


lı172 IF c>xx THEN d=-Cc-x)/Ccl-anf):dd=-Cc- 


[zz 27 Si ZanE 
(©) 175 plus=-x:minus=xx 
280 FOR y-anf TO ci 
WW 190 PLOT plus,y:DRAW minus,y 
[599 IF c<x THEN plus=-plus-d:minus=-minus- 
[1] OÖ je210 IF c>xx THEN plus=-plus+d:minus=-minus 
+dd 
ka | 220 NEXT 
225 CrALL 8&BB18 
— |230 GoTo ı0 
OÖ 235 REM *»==.es°.» Moeglichkeit 3 
240 IF al>b1i THEN GOTO 300 
e45 x=-Cc-a)/Ccl-al)*Cbl-al)+a 
BER |eso d=Ccx-a)/Cbl-al):dd=-Ccb-a)/Cb1l-al) 
eS5 plus=-x:minus=b 
be ©) |250 FOR y-b1 TO aı STEP -ı 
8265 PLOT plus,y:DRAW minus,y 
> |270 plus=-plus-d:minus=-minus-dd 
275 NEXT 
OÖ | 277 xx=b 
280 RETURN 
300 xx=b-CCb-cI/Cc1-b1)3*Clal-b1D) 
(®) | 305 d=cb-a3/Cal-b1):dd-Cb-xx3/Ca1l-b1) 
310 plus=-a:minus=xx 
H 315 FOR y-ral TO b1 STEP -ı 
| 320 PLOT plus,y:DRAW minus,y 
©) | 325 plus-plus+d:minus=-minus+dd 
330 NEXT 
| 332 x-a 
un RETURN 


l. Alpha, Beta und Gamma sind kleiner 90 ns 


O 3. Di® Punkte A und B sind nicht auf gleicher 


Der Computer füllt das Dreieck aus, indem er 
“mit dem "DRAW" Befehl Linien so oft über- 


CPC 464 


einandersetzt bis das ganze Dreieck ausgefüllt 
ist. Hierbei wird die Steigung der Seiten be- 
rechnet, indem man die Höhe mit der Grund- 
seite dividiert. Hat der Computer ein Dreieck O 
ausgefüllt, so muß eine beliebige Taste ge- 
drückt werden, um das Programm fortzu- OÖ 
setzen. Wer das Programm in ein anderes Pro- 
gramm einbetten will, benutzt den "MERGE" 
Befehl. Es muß allerdings darauf geachtet 
werden, daß sich die Zeilennummern nicht 


überschreiben. (Wolfgang Lemme) 


5 REM *** Symbol **+* 
ı0 DIM 1c11,10) 
20 INK O,1:BORDER 1:INK 1,24 


30 sc=-2 
40 MODE 1:PEN 2 
so DATA 1,24,2,1,12,13,1,2,16,1,24,40 
60 DATA 2,40,12,13,16,3 
70 FOR t-1 TO “4 

PERD a,b,c 

FOR x=-a TOD b:LOCATE c,x: PRINT CHRSC14 
3) 
100 NEXT x 
110 NEXT t 
120 FOR t-1 TO 2 
130 RERD a,b,c 
140 FOR x-a TO b:LOCATE x,c:PRINT CHRSCI 
43) 
150 NEXT x 
160 NEXT t 
170 PEN 3:LOCATE 18,1:PRINT "Steuerung m 
it den” h 
180 LOCATE 27,3:PRINT CHRSC24O) 
180 LOCATE 27,5:PRINT CHRSC241) 
200 LOCATE 26,4: PRINT CHRSC242) 
210 LOCATE 28,4: PRINT CHRSC243) 
220 LOCATE 21,7:PRINT "Cursortasten” 
230 LOCATE 15,9: PRINT "Fuer sinen Punkt: 


<ENTER>":PEN 2 
e40 LOCATE 1,2S: 

Neu / p:printen / e: 
J:LOCATE 1,1 


"’CHRSC24)” n 
"CHRSC2H 


PRINT ” 
Ende 


E50 REM **+»++. Eingabe 

260 PEN 2:x-4:y=2 

270 LOCATE x,y:PRINT CHRSC143) 

280 aS-INKEYS: IF a$S-"" THEN 2B0 

290 xxx: yuu= Ri 

300 IF a$S-"e" OR aS-"E" THEN MODE 1:END 
310 IF a$-"p OR a$-"P" THEN GOTO 560 
320 IF aS- " THEN GOTO 520 

330 IF a$-"n"” OR aS-"N” THEN GOTD 700 
340 IF aS-CHRSC13) THEN GOTO “470 

350 IF aS-CHRSC240) THEN y=-y-1:GOTD “OO 
360 IF asS-CHRSC241D THEN y-y+1:6GDTOD “MOO 
370 IF aS-CHRSC242)3 THEN x=-x-1:GOTD “OO 
380 IF a$S-CHRSC243) THEN x=-x+1:GDTD 400 
390 GOTO 280 

400 IF x>11 THEN x-11 

410 IF x<4 THEN x-4 

420 IF y>S THEN y-9 

430 IF y<2 THEN qy-2 

440 LODCATE xx,uu:PEN 3:1IF iCxx,yuy?>=1 THE 


N PRINT CHRSC143) 
450 PRINT CHRSC32) 
450 PEN 2:G0TO 270 
470 iCx,y)I=1:PEN 3:LDCATE x,y:PRINT CHRS 
c143) 

480 ORIGIN 206,377 

490 PLOT 2*x,(C9-y2>*2,1 

SOO PEN 2:x=-x+1:1IF x>11 THEN x-11 
sıo GoTO 270 

S20 LOCATE x,uy:PRINT CHRSC32) 

530 i1Cx,y>-O:PLOT 2*x,(C9-y)*"2,4 
S4YO x=-x+1:IF x>11 THEN x-ı1 

s50 GOTO 270 

S650 WINDOW 3,39,13,24 

570 LOFATE 1,sc 

580 PEN 1:FOR zeile-1 TO 8 

5SS0O FOR spalte-7 TO O STEP -1 

600 IF iC11-spalte,zeile+1)-1 THEN erg(z 
esils)>=-srgCzeile)+2"spalte 

610 NEXT spalte 

620 PRINT erg (CzeilesJICHRSCBI”,”; 


| 
| 
| 
| 
I 
| 
I 
| 
| 
j 
- 
| 
| 
j 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
630 NEXT zeile | 


1,40,1,25 
710 LOCATE 14,1: PRINT” 
INT" 

720 DIM 1c11,109 

730 GOTO 260 


”":;LOCATE 14,2:PR 


ST ETF DE 


640 PRINT CHRSCBI"” ” 

650 LOCATE 1,sc+2:PRINT STRINGSC36,233): j 

sc=-sc*+3 

660 aSs-INKEYS: IF a$-"" THEN 56560 | 

670 IF a$-"n" OR a$-"N" THEN ERASE erg:G 

OTO 700 | 

680 IF a$-"e" OR as$-"E" THEN MODE 1:END 

690 GOTO 660 j 

700 ERASE i:WINDOW 3,11,2,10:CLS: WINDOW ' 
| 
l 


Schneide 
Dieses Programm läßt den Schneider CPC wie 40 aus$-" ‚#HHHHHHHHHHH”stellenS=".#HHHH” 


akti 
einen mit der umgekehrten Polnischen SO INK 0,14: INK 1,3: INK 2,26: INK 3,2 
Notation (UPN) arbeitenden Taschenrechner 60 WINDOW 1,40,1,1:PAPER 2:PEN 1:CLS:PRI 


erscheinen, wie z.B. die Taschenrechner ” ; ; ” yo 
Firma Haste Packard, en See NT UPN-Rechnersimulation ‚ CHRSC164)”19 
Rechner sind auch die Funktionen entliehen. 85 H. Moeller 
Einige Unterschiede im Verhalten gegenüber 70 WINDOW 1,40,16,25:PAPER 3:CLS 

dem Original ergeben sich durch den BO PEN 0:LOCATE 10,2:PRINT”T”:LOCATE 10, 
kleineren Wertebereich und die geringere 3:PRINT”Z”:LOCATE 10,4:PRINT”Y”:PEN 2:LO 
Genauigkeit der CPC°s. CATE 10,6: PRINT”X” 


90 WINDOW#2,12,25,17,17:CLS#2:PEN#2,3 


Nach dem Starten des Programms erscheinen 100 WINDOW#3,12,25,18.18:CLS#3: PEN#3.3 


die Rechenfunktionen in der oberen 
Bildschirmhälfte. Diese Funktionen werden 110 WINDOW#4,12,25,19,19:CLS#4: PEN#4,3 
mit den Cursortasten angewählt und durch 120 WINDOW#S,12,25,21,21: PAPER#S, 2: PEN#S 
Drücken der COPY- oder der kleinen ‚1:CLS#5 
EEE iaste ENSEeKUheL. Die Ziffern können 130 DRIGIN 0,0:MDOVE 176,80:DRAUWR 224,0,2 zZ 
nur er en separaten Ziffernblock R = h Ber. N So. 
eingegeben werden. Die Funktionen ’ENTER’ ee ’ Pi ‚2: DRAUR "260,0; DRAUR 9,20:0 [e) 
und ’CLX’ können direkt mit der großen : 
ENTER-taste, bzw. mit DEL, ausgeführt 140 WINDOW#E, 2,6, 16,16; PAPER#6,0:PEN#6,1 
werden. In der unteren Bildschirmhälfte : CLS#6: PRINT#6, ”DEG” Hr 
werden 5 Winkelmodus, die Inhalte der 150 LDCATE 28,1:PRINT"Speicher: “ «< 
ee AUEEIBESIEPIAY, 39: und die 160 WINDOW#7,28,40,17,21:CLS#7: PEN#7,1 R 
1alte er n peicher angezeigt. Der op ai : 7.0: 
Programmablauf wird durch Zweimialiges 170 DIM sto(4):FOR x=1 TO 5:PRINT#7,0:NE = 
Drücken der ESC-taste beendet. xT 
Rechenbeispiel: 180 WINDOW 1,40,2,15:PAPER O:PEN 3:CLS > 
GEEESREERARTET 190 DIM befehl$(5,6) 
Rechnen von 41 mal 12 plus 53 200 RESTORE:FOR x=1 T0 6 = 
ern 210 FOR y-1 T0 5 
2. ENTER drücken U X 
3. Eingabe: 12 220 READ befehl$(y,x):LOCATE y*B-6,x+2:P 
4. Die Funktion ’*' mit der Cursortasten anwählen RINT befehl$(y 1 x) 160) 
6. Diese Funktion mit der COPY- oder kleinen ENTER-taste 230 NEXT z. 
ausführen: Es wird das Ergebnis angeseigt: 492 240 NEXT > 
a ee. + 250 befehl$(C1,4)="R”+CHRSCE41)+” ":LOCAT 5 
8. Diese Funktion ausführen (s. 5.) E 2,6: PRINT befehl$(1,4); CHRS(7) 
Es wird das Ergebnis angezeigt: 545 260 DATA ENTER, +,STO,RAD,SIN,CLX, = REL,D mM 
EG, ARCSIN,X<>Y,*,X°2,GRAD,COS, ,/,SOR,PI, [04 
ARCCOS,CHS, INT,LOG,R>P,TAN,FIX,LAST X,Y° ı 
Liste der Rechenfunktionen: X 2 P>R 5 ARCTAN Z 
ENTER = Verschiebung der Stackinhalte nach oben a :PEN 2:PAPER 3:G0SUB 590:SPEE A 
CLX = Löschung der Anzeige (X-Register) 3 
x<>Y= ustessch der Inhalte zwischen den Registern X und Y 2B0O MOVE 2 , 252:DRAWR O 5 104 f 3:DRAWR 634 ; [6] =) 
R = Verschiebung der Stackinhalte nach unten mit Austausch :DRAWR O ; -104: DRAWR -5634 ; [6} 
T gegen X 290 FOR i-1 TO 4:MOVE 128*i,252:DRAUR O, 
CHS = Vorseichenwechsel 104: NEXT 
an er Nachkommastellen 300 "wenn 
+-/ = enfunktionen 
INT = Nachkommastellen werden zu Null 310 REM Hauptschleife 
LASTX = Wert vor der letzten Rechenoperation 32O Wire ee 
STO = Abepeichern 330 LOCATE 16,12:PEN O:PRINT STRING$S(CB,C 
RCL = Speicherrückruf HRS(143)) 
ee 340 GOSUB 1070 
LOG = Logarithmus zur Basis sehn = ES BrEen 5 
Y°X = Potensieren : 
RAD = Bogenmaß 370 IF NOT INKEYCO) AND x>1 THEN GOSUB 5 
DEG = Altgrad 90:x=x-1:G0SUB 590:G60T0 350 
GRAD = Neugrad Pı 380 IF NOT INKEYC2) AND x<6 THEN GDSUB 5 
SE ee von rechtwinkligen in Polarkoordinaten S0: x=xt+t 1 ’ GOSUB 5390 : GOTO 350 2 
P>R = Umwandlung von Polar- in rechtwinklige Koordinaten 330 IF NOT INKEYC1) AND y<S THEN GOSUB 5 
Desweitern stehen die Winkelfunktionen zur Verfügung. 90: yy#+l: GOSUB 590:60T0O 350 : 
400 IF NOT INKEYCB) AND y>1 THEN GDSUB 5 
Liste der wichtigsten Variablen: 90:y=-y-1:60SUB 590:G0OTO 350 
410 IF NOT INKEY(C3) OR NOT INKEY(C6) THEN 
sx$="”:GOTO 570 
kls = Kleinste Zahl (für x-Anzeige) 420 IF NOT INKEYC18) THEN Flag1-0:G6DSUB 
stellen$ = Nachkommastellen für x-Anzeige 1030: £lagi1-1:G0TO 320:REM ENTER 
ausgabe$ = Format der x-Anzeige 430 IF NOT INKEY(C79) THEN sx=0:sx$-"":fl 
befehl$(y,x) = Rechenfunktionen agl-1:G60TO 320:REM CLX 
Pan EReBiae En IHOERIERETIES 4490 IF NOT INKEYC15) THEN x$="0":G0T0 11 
x = Hochwert im Funktionsmenue 50 
ax$ = eneingabestrin 
ee RAD und BEd.08 bei GRAD 450 IF NOT INKEY(C13) THEN x$="1":G0TD 11 -_ 
7, 60 
> REM es 4560 IF NOT INKEY(C14) THEN x$="2":6G0T0O 11 
4 REM * UPN - Rechnersimulation * 60 
6 REM * Cc) 1985 H. Moeller * 470 IF NOT INKEY(S5) THEN x$="3":GOTD 116 
B REM * Hildesheim * 16) 
9 REM 4a ana aaa lea a aaa a ea ae ae 480 IF NOT INKEY(C20) THEN x$="4":G0TD 11 
20 MODE 1:BORDER 0:0N ERROR GOTO 1450:0N 60 ie Br 
BREAK GOSUB 1500 490 IF NOT INKEY(12) THEN x$="5":GOTO 11 
30 CLS:st-0:sz-0:sy-0:sx-0:1x-0:Flagl=0: 60 ee Au 
sx$5="".DEG:winkel=1:klz=0.0001 500 IF NOT INKEY(4) THEN x$="6":GOTD 116 
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510 IF NOT INKEYC1O) THEN x$="7":G0TO ds a2$=al$+stellen$:ausgabs$-LEFT$Ca2$j| 
[e) ’ ) 
) ne nee 1100 PRINT#2,st:PRINT#3,sz: PRINT#4,sy:PR, 
„eo IF NOT INKEYC11) THEN x$="8":G0TO 11 INT#S ‚USING ausgabe$;, sx: RETURN 
er 1110 REM FIX 

‚530 IE .NOT SINKEYESITHEN 8-99", 5070: 1187,55 2. | 
0 s ana I 
ISyO IF NOT INKEYC7) THEN x$=".”: IF InSTRLL3O Ua es le ERINE TEN DT EAST NEE 


. un ro” yrg” - 
I(sx$,”.”)=O THEN 1160 es a$ DR a$<”0” OR a$>”3” THEN 112, 
I 


IS50 GDTO 350 : ee BE 2 
570 funkt ionsyPE-6+%:0N Funktion 601060, Klzel:stellens=""; IF a8=°0" THEN IE, 


I\0,610, 620,630, 640,1110,650, 660,670,680,6 7150 n1-VAL(aS):stellen$=LEFTSCauss,hi+1! 
(30,700, 1210, 1450, 710,700, 730, 740, 750, 760, 12.1 Morı-esge er Earo 35a 
1,279. 780, 1280, 1370, 780, 800,810, 820,830,8 160 REN Zahleneingabe 


1190 es 
I580 GOTO 320 

u. 7 
I5S90 LOCATE y*B-6,x+2: PRINT befehisty,d:0 > FREN -BOSUB IDEOFEOAUE 97] 


\PEN 2: PAPER 3: RETURN 
ı500 Flag1-0:60SUB 1030:Fflagi-1:G60T0 320: 
| ENTER 


1190 flagl-O:IF LEN(sx$)<11 THEN sx$=sx5) 
+x$5: IF sx$=".* THEN sx=O ELSE sx=UAL(sx$! 


) I 
es rn La eu 1: DuLn 320. LLX.. 1269 BRINFRS;" uaxscotg 350 
‚se 5%: 5X75y:84 :5x$ :Flagl-0:G60TO 1210 REN Speichern 
en: X<>Y 1230; Nesssss-snien t 
630 hesx: sx=sy:sy=sz:sz=st:st=-h:sx$="":G6 1230 LOCATE 16,12: PRINT”STO 0-4”:GOSUB 1, 


IOTO 320: ’RDN 

I640 sx=-sx:G0OTD 320: 'Vorzeichenwechsel 
I650 1x=-sx:sx=-sx+tsy:GDOSUB 1020:G0TD 320: 
+ 


‚860 lx=sx:sx=-sy-sx:GOSUB 1020:G0TD 320: 


280: sto(speicher )=sx ' 
1240 LOCATE#7,1,speicher+1:PRINT#7,SPC(1 
2): LOCATE#7,1,speicher+1:PRINT#7,sto(spe! 
icher);:GDTO 320 | 
1250 REM Speicherrueckruf j 
1260 "=== 552525037 I 
1270 LOCATE 16,12:PRINT”REL O-4”:GDSUB 1j 


f 280:G0SUB 1030: sx=sto(Cspeicher):GOTO 320, 
680 1x=-sx:sx=-sy/sx:GOSUB 1020:G0T0 320: ’ 1280 a$=INKEYS: IF a$=""” OR a$<”0O” DR a$> 


1670 lx=sx:sx=-sy*sx:GOSUB 1020:60T0 320: 


v ”4” THEN 1280 ELSE speicher=UAL(a$):RETU' 
1690 1x=sx:sx=CINTCsx):flagl-=-0:G0TD 320: ’ RN | 
INT 1290 REM R>P 
‚700 GDOSUB 1030:sx-1x:G60TD 320: ’Last x 1300 '------ | 
710 lx=sx:sx=-sx*sx:GOTD 320: ’x°2 1310 IF SINCS0)<O.9 THEN A1=PI1/2 ELSE h! 
20 lx=-sx:sx=SOR(sx):GODTO 320: "Wurzel =90/winkel 4 | 
‚730 1x=sx:sx=LOG10(sx):GOTD 320: ’LOG 1320 1x=sx: IF sx<>O THEN ri=ATNCsy/sx)/uw, 


‚240 lx=sx:sx=sy"sx:GOSUB 1020:G0T0 320; ’inkel ELSE ri=h1*SGN(sy): IF sy-O THEN ri, 
y°x -0 

I750 RAD: PRINT#6, "RAD”:Winkel=-1:60T0 320 1330 IF sx<O AND sy>O THEN ri=ri+2*hl 
760 DEG: PRINT#6, "DEG”:Winkel=1:60T0 320 1340 IF sx<O AND sy<O THEN rimaBScri)-2e 
770 DEG: PRINT#6, "GRAD”:Winkel=3/10:6070 N I 


I320 1350 sx=SOR(sy*sy+sx*sx):sy-rı N 
1780 GOSUB 1030: 1x=sx:sx-P1:G0T0 320: ’pi 1350 50T0 320 | 
1790 Ix=sx:sx=-SINCsx*winkel):G0T0 3201370 REM P>R 
B00 1x=sx:sx=(ATNCSx/SORC1-sx*sx)))/wink 1380 7-22 

el:G0T0 320: ’arcsin 1390 IF SINC90)<0.9 THEN h1=PI/2 ELSE hlj 
B10 1x=-sx:sx-[L0S(sx*winkel):GOTD 320 -30/winkel f 
IB20 1x=sx:sx-CATNCSORC1-sx#sx)/sx))/wink 1400 IF sy>@ehl THEN symsy-4*h1:GOTO 138, 
ı81:G0TO 320: ’arccos 0 

830 lx=sx: sx=-TANCsx*winkel):GOTD 320 1410 he=sy: Ix=sx:sx=1x*L0SCsy*winkel):syl 
B4O 1x=-sx:sx=CAINCsx))/winkel:G0T0 320 ”1Xx*SINtsy*winkel) | 
Isso GoTo 320 1420 GOTO 320 
11000 REM Hilfsroutinen 1430 REM Fehler 

11010 '---------------- 14yyo Esel | 


1020 sy"sz:sz=-st:sx$=-"":flagl-0: RETURN 1450 IF SINC90)<0.9 THEN h1=PI/2 ELSE hl 
1030 IF Flagl-O THEN st=sz:sz=sy: sy=-sx:s "90/winkel 


) 
Ixg-"” 1460 IF ERL=-B00 AND sx<=1 THEN sx=hl:G0T, 
1040 Flag1-0: RETURN D 1430 

1050 REM Anzeige 1470 IF ERL=820 AND sx<=1 THEN sx=h1:GOT] 
MOBD en 0 1490 


11070 h1=FIXCLOG10CABSCsx+0.00001))): IF n1480 LOCATE 16,12: PRINT"Fehler! ”;CHRSC7) 
ı1?O THEN al$=RIGHTSCaus$,hil+2) ELSE alg= :FOR i=1 TO 1000:NEXT 

”44” 1490 RESUME 320 

|1080 IF cklz>ABS(csx) OR ABSCsx)>1E+09 OR 1500 REM Ende 


| 

I 

I 

| ABSCsx)<0.00000001) AND sx<>0 THEN st$- 1510 '------- 

|LEFT$(Cstellen$, 7): ausgabe$="##"+st$+"" "1520 INK 0,1: INK 1,24:PAPER O:PEN 1 

j „50T0 1100 1530 END | 
I 
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CPC 464 


GRAFIX — eine 


Grafikerweiterung für 


den CPC 


FRE 


m Kurarsn 


u 


a SEE RER 


GRAFIX ist eine RSX-Befehlserweiterung, 
die auf dem Schneider das bequeme Arbeiten 
mit zwei verschiedenen Video-RAMs ermög- 
licht. 


Bereits ohne Speichererweiterung kann man 


auf dem CPC mit (mindestens) zwei verschie- 


denen Grafikseiten arbeiten. Mit einem 
einfachen CALL-Befehl ist das Umschalten 
möglich; aber dann war bisher auch schon 
Schluß. Diese RSX liefert neun neue Befehle, 
die zeigen, mit welcher Geschwindigkeit 
Maschinensprache gleich 16 KBytes (1 Gra- 
fikseite) auf einmal verarbeitet. 


Das BASIC-Ladeprogramm setzt die oberste 
Speichergrenze soweit harab, daß die unterste 
Grafikseite geschützt wird. Für Ihr Programm 
bleiben dann noch ca. 15 K übrig. Die RSX 
liegt in dem ohnehin ungenutzten Platz zwi- 
schen den beiden Video-RAMs. Aus diesem 
sicheren "Versteck" heraus versorgt sie Sie mit 
folgenden neuen Instruktionen: 


— all 


E I, } on —— 
Zn S 
=: T U? | = 
“ = 


! —— 


IINVERT 


Invertiert das obere Video-RAM. Die Verän- 
derung ist natürlich nur sichtbar, wenn diese 
Seite gerade angezeigt wird. 


ISTORE 


Kopiert den Inhalt des oberen Video-RAMs 
in den unteren Speicherbereich. 


|RETRIEVE 
Macht das Umgekehrte. 
ILOW 


Die untere Grafikseite wird auf dem Bild- 
schirm angezeigt. 


IHIGH 


Zeigt natürlich die obere Seite an. 


dr 


GRAFIX 


O 


| CPC 464 


©) 
ISTATE,@x% Bei den letzten drei Befehlen steht das 
Ergebnis der Verknüpfung jeweils im oberen 
Gibt in x% (einer Integer-Variablen!) zurück, Video-RAM, während das untere erhalten 
O welche Seite gerade zu sehen ist. x%=1 bedeu- bleibt. 6) 


tet unteres, x%=2 oberes Video-RAM. Ach- 
6) tung: Dieser Befehl funktioniert nur, wenn 

ausschließlich mit LOW und HIGH umge- 

schaltet wird, da diese beiden Instruktionen 
Ö ein Flag im Speicher entsprechend setzen! 


®) |ORMIX 


6) Verknüpft die Grafikseiten durch Logisch- 
Oder. 


OÖ IXORMIX 


Verknüpft die Grafikseiten durch Logisch- 
Exklusiv-Oder. 


Allgemein ist anzuraten, bevorzugt mit der 
oberen Grafikseite zu arbeiten und den Be- O 
reich des unteren Video-RAMs als Hilfsspei- 
cher zu verwenden, da GRAFIX diese Ar-O 
beitsweise weitgehend unterstützt. So lassen 
sich z.B. Grafiken durch die drei MIX-Befeh- 
le verknüpfen, so daß faszinierende Bilder © 
entstehen. Sie sollten hier etwas experimen- 
tieren, um die schönsten Effekte heraus- O 
zufinden; das Demo-Programm mag Ihnen als 
kleiner Anhaltspunkt dienen. LOW und HIGH 
ermöglichen das schnelle Umschalten zwischen 
zwei Displays, etwa in einem Spiel. In einem 
Mal- oder CAD-Programm könnte nach jeder 
Operation des Benutzers das Bild mit STORE 


©) gesichert werden, so daß mit RETRIEVE et-O) 
JANDMIX waige Patzer ungeschehen gemacht werden _ 
(®) können. Sie sehen, Anwendungen gibt es viele. ® 
Verknüpft die Grafikseiten durch Logisch- Der Rest sei Ihnen überlassen. 
6) Und. (Alwin Ertl) 
| ERRERIEIK NENNEN CRE NEIN NE DENE HENE DENE NEIEREEBENENE 1 O3 MEERE (®) 
} 
&: ı 
j ı © 
) 
OÖ 160 ' BasIc-Load 
eg AAREN 10 ’GRAFIX-Demo , © 
6) 1180 MEMORY &4000-1:MODE 1:INK 1,21:PEN 1 ER Funktiansfaehig, wenn] 
|: INK 0,0: PAPER O:BORDER 0:CLS A ws 
on "SOESEREAD mE 1un MODE T;INK 0,0: PAPER O:BORDER'OSINK | 
OÖ 1200 PRINT”GRAFIX installiert...” Bear re ale Ss f (®) 
1210 END F HIMEM>16383 THEN PRINT”ACHTUNG! DI 
Oo 1220 ATa 1, 156,128,33,234, 128, 195,208, 18 Ba N we 
Beeren 160 !HIGK:CLS: FOR i=0 TO 240 STEP 10:mou! © 
|,33,0,192,1,255,53,237,176,201,17,0,ı92, — 0,1:DRAUR 640,0,1:NEXT i:FOR i=O TO 641 
J STEP 20:MOVE i,0:DRAWR 0,240,1:NEXT i: 
©) 130, 64,1 ,059,69, 037, 1761 001,62,63,205, 8 jy2 239 omsauR 0 388 7 Be) 
‚188,62,1,50,155,128,201,62,192,205,8,18 N A) BE 
Fe 170 !LOW:CLS:ORIGIN 320,200:DEG:FOR i=15 
Ö: laso. Daza 155, 1e8,;201,e21 ‚103,3, 821,140,0.2 109 SIER "10 .TIOUE 1,0sF0R 1070 360! 
8 156 188 1s, 45 ,54.0,201,.33 zes 191. 1 3IEP 4: DRAW COS 53*1,SINC #150, @:NEXT dı 
” ’ ’ 3 ’ > ’ 3 ’ 3 3 Y ® i 
7,255,63,35,19,26,182,119, 124, 254, 255,30 en | 
[6] || 0 Gaesies een esstsetsn eareassessnsi,: leo tor 1150 10.0 sren namen ini, 0 
|7 255,63, 35,19,26, 174,119, 124,254, 255,327 7,4, „NEXT a J N 
r [®) a 190 FOR i=1 TO 3: !HIGH:FOR j=1 TO 1000:Nj o 
fun o | 246, 125, 254,255, 32,241,201,2,185,128,19 Ss re Tree 
15,10,128,195,29,128,195,41,128,135,53,12 200 ! : Re : 5 
7) 8,198, 64, 128, 195, 75, 128,195,89, 128, 195, 1 210 IINVERT:FOR j=1 TO 4000:NEXT 3: INVE| Ö 
u 11,128,195,133,128,73,78,86,69,82,212,83 ' 
OÖ ı,84,79,82,197,82,69,84,82,73,69,86,197,72°0 LOCATE 1,1:END 6) 
en 6,73 | 
250 DATA _215,72,73,71,200,83,84,65,84,19 | 
O |7,73,82,77,73,216,88,79,82,77,73,216,65, we) 
Q 178,68, 77,73,216,0 


TRANSLATION 


Umrechnungen von einem Zahlensystem in ein 
anderes sind nicht jedermanns Sache. Leicht 
haben wir im Dezimalsystem zwei Zahlen ad- 
diert, subtrahiert, multipliziert oder dividiert. 
Wer kann das genau so schnell und ohne große 
Umstände in den Zahlensystemen Hexadezi- 
mal, Oktal oder Binär. Und wenn es gilt eine 
Reihe von Zahlen von einem System in das 
andere zu bringen, brauchen wir zumindest 


eine Tabelle dazu. 


Das Programm TRANSLATION nimmt jede 
Zahl aus dem Dezimal-, Hexadezimal-, Oktal- 
oder Binär-System an, rechnet diese sofort in 
die drei anderen Zahlensysteme um und zeigt 
alle vier Werte gleichzeitig auf dem Bild- 
schirm an. Neben der Bequemlichkeit bei der 
Umrechnung in verschiedene Systeme, gibt es 
auch einen guten Einblick in die Zusammen- 
hänge der Systeme untereinander. 


Dieses Programm ist eines der Utilities, die 
jeder CPC-User braucht. Ganz gleich ob er 
die Dezimalzahlen’ aus Speedmaster in Hexa- 
dezimalzahlen umrechnen will oder ob er die 
Hex-Werte aus Transmat in Dezimalwerte um- 
wandeln möchte. Meine bisher für solche 
Zwecke benutzte Tabelle habe ich jetzt zu den 
Akten gelegt, weil TRANSLATION einfach 
bequemer ist. (Heinrich Behrendt) 

| 


50 MODE 1:LOCATE 9,2:PRINTTTRANSLA 
T I O N”:PRINT 

70 PRINT”In diesem Programm koennen Sie 

lZahlen aus den Zahlensystemen DEZIMAL, 
I OKTAL, HEXADEZIMAL und BINAER von eine 
im System in alle anderen umrechnen und m 
jiteinan- der vergleichen.”:PRINT 

80 PRINT”Besonders vorteilhaft ist die s 


akti 


240 N1$=INKEYS 
250 IF N1S = ”” THEN GOTO 240 
260 A=LENCNS) 
270 IF UPPERSCNI$) "H” THEN GOTO 440 
280 IF VALCNSI < O THEN GOTO 180 
es IF UPPERSCNI1S) = ”D” THEN GOTO 3901 
IF UPPERSCNI1S) = ”O” 
el THEN GOTO 490] 
320 PRINT ‚UALCDS),UVALCOS),HS,B$ | 
330 GDTD 180 ) 
340 BS=-N$ 
350 GOSUB 540:60SUB 620:60SUB 1000 
380 GOTDO 320 . j 
390 D$=NS$ 
400 GOSUB 620:G60SUB 780:G60SUB 1000 
430 GOTO 320 
440 HS=N$ 
450 GOSUB 780:G60SUB 540:60SUB 1000 
480 GOTO 320 
490 0$=-N$ 
500 GOSUB 920:60SUB 620:60SUB 780 
530 GOTO 320 
540 REM sub.BIN-DEC 
550 D=0:A=LENCBS$) 
570 FOR R=1 TO A:D=D+CVALCMIDSCBS,R,1))* 
2°CA-RI):NEXT R 
600 D$=-STRSCD) 
610 RETURN 
620 REM sub. DEC-HEX. 
630 E=-0:H$="".N=UALCDS) 
660 Y=16°E 
670 IF N<Y THEN GOTO 700 
680 E=-E+1 
690 GODTO 660 
700 IF E=O THEN GOTO 710 ELSE E=E-1 
710 Y=16°E 
720 P=INTCN/Y) 
730 IF P>=10 THEN K-55 ELSE K=48 
740 H$=H$+CHRSCP+K) 
750 IF P=O THEN GOTO 760 ELSE N=N-Y*P 
760 IF E>O THEN 660 
770 RETURN 
780 REM sub.HEX-BIN 
790 BS=”” 
800 FOR R=1 ID LENCHS) 
810 IF ASCCMIDSCHS,R,1)) >= 65 THEN N=ASj 
CCMIDSCHS,R,19)-55 ELSE N=ASCCMIDSCHS,R,| 


Idruecken Sie ENTER”; n$ 
I1ıg90o SuM -SUN + 1 


1030 FOR I=A TO 1 STEP -1 


0,000: 9.0: 20.270 00:0 9:.D:.0.09 91:09:09 9:0 908-8 


>B<, je nach Zahlentyp” 


@) ı oder 


1040 D = D + VALCMIDSCBS,1,1))*2°E 
1200 IF N$="” THEN GOTO 180 1050 E-E+1 
1210 IF UPPERSCNSI = ”E” THEN PRINT TABC3]060 IF E=3 THEN O$=STRSCD)+0S: E=0: D=0 
ieeo IF SUM = 18 THEN GOID 10 1080 IF D <> O THEN 0$-=STRSCD)I+0$ 


1230 PRINT #1, "Druecken Sie >D<, >D<, >H< ]090 


ystema- tische Anordnung und der’ dadurc 1))-48 
In moeg- liche staendige Vergleich.”:PRI 820 FOR E=3 TO O0 STEP-1 j 
INT 830 IF N>= 2°E THEN GOTO 850 ELSE Ns$="o”| 
I90 PRINT”So koennen Sie auch bestimmte U 840 GOTO 870 | 
leberein- stimmungen und Wiederholungen 1 850 N$="1":N=N-2°E | 
leicht beobachten.”:PRINT 870 B$=BS+NS$ | 
ı100 PRINT”Das Programm sollte jeder erst ggo NEXT E:NEXT R | 
ıhafte An- wender fuer schnelle und probl 900 RETURN 
jemlose Um-rechnungen parat haben.” 910 GOIO 180 
110 PRINT:PRINT"Leertaste druecken...” g20 REM OCT-DEC " 
820 CALL &BB18 930 'D-0: A=LEN(OS) 
ERDE N 950 FOR I=A TO 1 STEP -1 
140 CLEAR :CLS:MODE © 360 D - D+VALCMIDSCOS,1,1))*cB)ca-I) | 
1150 PRINT, ”Wenn Sie beenden wollen, drueg709 NEXT I | 
cken Sie die Taste E”:PRINT 980 DS=STRSCD)I | 
‚150 PRINT ‚”DEC.ZAHL ”,”OCT.ZAHL ”,”HEX. ggo RETURN 
ZAHL ”,”BIN.ZAHL ”:PRINT 1000 REM BIN-OCT | 
1170 wınDOW #1,10,75,25,25 1010 D=0:E-0:0$="" 
180 INPUT#1, "Geben Sie die Zahl ein und 1020 A= LEN (B$) k 
I 
I 
I 
I 
I 
I 
[ 
I 


D$=-STRSCVUALCOSI) 
RETURN 


8.0.0000 %9%00©€©0D090%9009%0200000%00 © 
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64 __LISTING 


10 ’ZAHLEN 
I20 ’ 

I80 MODE 1:BORDER 3:INK 0,15:INK 1,6: INK 
I2,1:INK 3,0:PAPER 3:CLS 

I90 PEN 1:LDCATE 2,20:PRINT ”"ANFANG”:LDCA 
ITE 13,20: PRINT ”*ENDE*” 

ı100 PEN 0:LOCATE 21,20:PRINT ”*TAGESZEIT 
*”:LOCATE 21,23: PRINT ”SPIEL-DAUER” 

110 PEN 1:LOCATE 35,20:PRINT ”ZUEGE” 
20 DIM FOLGE%C16):SPIELS$S=STRINGSC16,” ” 
2; 21EL$=SPIELS: ZCH$S="123456789ABCDEF u 
130 WINDOW#0,21,39,2,18:PAPER#0,0:PEN#O, 


SCH TE BEIN 


l2:CLS#0 

1140 WINDOW#1,3,17,3,17:PAPER#1,1:PEN#1,2 
j;ELS#1 

150 WINDOW#2,2,7,21,24: PAPER#2,0:PEN#2,2 
: CLS#2 

160 WINDOW#3,13,18,21,24: PAPER#3,0: PEN#3 
| 2:C1L5#3 

1170 WINDOW#4, 21,31,21,21: PAPER#4,2: PEN#4 
1,1: CLS#4 

1180 WINDOW#S, 21,31,24,24: PAPER#5,2: PEN#5 
1,1:CLS#5 

190 WINDOW#6,35,39,21,24: PAPER#6,1:PEN#6 
2: CLS#6 


‚200 WINDOW#1,1,19,1,19 
210 FOR I=2 IO 18 STEP 4 

l220 LOCATE#1,2,1:PRINT#1, 
I CHR$(C206)) 


STRINGSC1?7 


1230 NEXT 

ı240 FOR I=2 TO 18 STEP 4 

250 FOR J=2 TOD 1B° 

‚250 LOCATE#1,1,J:PRINT#1,CHRS$SC2O 
6) 

1270 NEXT J 

1280 NEXT I:WINDOW#1,3,17,3,17:PEN#1,3 
l2g90 °’ 

1300 ’Tageszeit eingeben und starten 

1310 ’ 

ı320 CLS#0:PRINT#O, "Tageszeit eingeben”, ” 


--->[hh:mm: ss]J<---”: PRINT: PRINT 

330 INPUT#O,” ”. US 

340 Hu=VALCMIDSCUS,1,2)):Mu=VALCMIDSCUS, 
14,2)):Su=VALCMIDSCUS, 7,29) 

350 IF LENCUS)I<>B DR Hu<Q DR Hu>23 OR Mu 
<O OR Mu>59 DR Su<0O OR Su>59 DR MIDSCUS$, 
3,1909”; » OR MIDSCU$,6,1)<>”:” THEN PRIN 
IT:PRINT: PRINT#O, "Falsche Eingabe!!!!”:FD 
IR I=1 TO 2000:NEXT:GDTO 320 

350 CLS#0: EVERY 50,3 GOSUB 780 

400 ’ 
lyıo ’** 
420 ° 
1430 ’START- UND END-SPIELFELDZUSTAND ERZ 
EUGEN 

+40,” 

I450 CLS:PRINT”Spielfeld wird”, "aufgebaut 
[ed 

+50 GDSUB 360: FOR I=1 TO 16:MIDSCSPIELBS, 
1,1)=MID$SCZCH$, FOLGE%CII, 13: NEXT 

1470 GOSUB 360:FOR I=1 TO 16:MIDSCZIELS,1 
I, 1)=MIDSCZCH$, FOLGE%CID,1I:NEXT 

+80 N=1:FOR Z=1 TO 4:FOR S=2 TO S 


SPIELSTART . 


+30 LOCATE#2,5,2: PRINT#2,MIDSCSPIEL$ 
‚N,13; 
|500 LOCATE#3,S,2: PRINT#3,MIDSCZIEL$, 


N,1);:N=N+1:NEXT:NEXT 


Is10 G0SUB 1070 


Is20 ’ 

1530 "KONDITIONEN ANNEHMEN CJ/N) ODER TAG 
jESENDE C°) 

s40 .' 


Zahlenschieben 


550 °CES:PRINT”Spiel annehmen (J)”, "Neues 


Spiel CN)”, "Spielende ee 
Fe 


560 S$-INKEYS: IF. 5$-”” THEN S60 ELSE S$-! 
UPPERSCSS$): LOCATE.17,5: PRINT S$; 


570 IF S$<>”J” AND SS<>”N” AND 559” -” T 
HEN 560 
580 IF S$="N” THEN 400 ELSE IF S$="”"” TH 


EN GOTO 1130 

590 Ha=-0:Ma=0:Sa=-0:Zuege=-1:EVERY 50,2 6 

DSUB 860:60SUB 940: CLS 

600 ’ 

610 ’* SPIEL-SCHLEIFE * 

620 ’ 

630 CLS:LOCATE 1,3:PRINT ”Schiebe Symbol 
en Oder ENDE. mit 

640 PEN 1:LOCATE 17,3:PRINT ”?”:FOR I=1 

TO 250:NEXT 

650 PEN 2:LOCATE 17,3:PRINT ”?”:FOR I=1 

TO 250:NEXT 

660 S$=INKEY$: IF S$="”” THEN 640 ELSE IF 

S$="""” THEN GOTO 1130 ELSE VGL%=0O 

670 S$=-UPPERS$SCSS):FOR I=1 TO 16:1IF S$=MI 

D$SCSPIEL$S,1,1) THEN VUGL%=1 ELSE NEXT 

680 IF VGL%=-O OR S$="” ” THEN 640 ELSE LO 

SATE 17,3: PRINT S$: FELD%=1 

630 FOR I=1 TO 16:IF CHRSC32)=MIDSCSPIEL 

$,1,1) THEN LEER%=I ELSE NEXT 

700 IF LEER%<>FELD%“-4 AND LEER%<>FELDS-1 
AND LEER%<>FELD%+1 AND LEER%<>FELD%+4 

THEN 640 

710 MIDSCSPIEL$,LEER%,1)=S$:MID$SCSPIELS, 

FELD%,1)=” ”:GOSUB 1070 

715 SOUND 7,0,1,15,1,0,31:60SUB 940 

720 IF SPIEL$S<>ZIEL$ THEN GOTO 640 ELSE 

CLS: I=REMAINCD) I 

730 PEN 3:LOCATE 5,8:PRINT ”FER T1IG” 

113 ,,' Taste betaetigen” S | 

740 IF INKEY$S="”” THEN 740 ELSE GOTD 450 

750 ; 

760 ’UNTERPRODGRAMN: 

770 

780 LDCATE#4,2,1:PRINT#4,USING”##:##: ##” 

; HU ; MU ; SU: SU=SU+1 

790 IF Su>59 THEN 

800 IF Mu>59 THEN 

810 IF Hu>23 THEN 

820 RETURN 

B30 ’ 

B40 ’* 

850 ’ 

860 LDCATE#S5,2,1:PRINT#5,USING”##:##:##” 

; HA; MA; SA: SA=SA+1 

870 IF Sa>593 THEN Sa=0:Ma=Na+1 

880 IF Ma>53 THEN Ma=O:Ha=Ha+l 

830 IF Ha>23 THEN Ha=0O 


a3» 


Tageszeit anzeigen 


Su=0:Mu=Mu+1 
Mu=0O: Hu=Hu+l 
Hu=0 


Spielzeit anzeigen * 


900 RETURN 
910: ? 
920 'UNTERPROGRAMN: Spielzuege anzeigen 


930 
340 ZUEGE=ZUEGE+1:LDCATE#6,2,2:PRINT#6,U 
SING”###” ; Zuege 


950 RETURN 
960 ’ 
970 ’* 16 UNGLEICHE ZUFALLSZAHLEN IN FOL 


GE%“C1-16) ABLEGEN * 

980 

9930 FOR I=1 TO 16:FOLGE%CII=O:NEXT:FOR I 
=]. 10. 16 

1000 ZU%=INTCC1EI*RNDCEII+1I: VUGL%=O 

1010 FOR J=1 TO I:IF FOLGE%CII=ZU% THEN 


l 
I 
| 
I 
| 
| 
j 
| 
| 
j 
| 
I 
j 
j 
| 
j 
j 
j 
| 
| 
| 
I 
) 
| 
| 
VUGL%=1 ELSE NEXT:PRINT”.”; | 


©... 0:0: 207.8 2 70:70.90 90: 8 9:99 9: 19.0 


Zahlenschieben 


26273 

#7 4 Z Z 

; a a 

A : 

BASUG 
WIIRLE 


AREaRG 
Das Programm ist ein Geschicklichkeitsspiel, 


das wir alle aus unserer Jugendzeit her 
kennen: 


-+ENDE« 


0. 0::@ 0. :0:,9. 0:30:20 


O 


15 gegeneinander verschiebliche Symbole auf 
einem quadratischen Spielbrett sind durch 
Verschieben (ein 16. Leerfeld "schafft Platz 
zum Verschieben") aus einer Anfangsposiotion 
in eine vorbestimmte Endposition zu bringen. 
Im Original sind die Symbole die Zahlen 1-15 
OÖ und ein freies Feld, hier im Spiel sind es aus 

Darstellungsgründen die Zahlen 0-9 und die 
O Buchstaben A-F sowie ein "Leerfeld". 


OÖ 


1020 IF UGL%=1 THEN 
ZU%: NEXT 

1030 RETURN 

1040 ' 
1050 
DES 
1060 

1070 N=1:FOR 2-2 TO 
14 STIER’ 4 


12; :N=N+1:NEXT:NEXT 
1090 RETURN 

1100 ’ 
1110 
1120 
1130 
: INK 
1140 


I©::©: ©.:© 0.0000 


'ANZEIGE DES NEUEN SPIELFELD-ZUSTAN 


"#*% SPIEL-ENDE ** 


CALL &BBFF: INK 0,15:INK 1,1:INK 2,0 
3,1:PAPER O:PEN 1:BORDER 3 j 
I=REMAINC3):J=REMAINC2I:FOR I=1 TO 


\ 

I 

ı 

I 

I 1080 LOCATE#1,S,2:PRINT#1,MIDSCSPIELS,N, 
ı 

l 

I 

2000: NEXT:MODE 2:END 
I 

I 

! 


akt 


Nach Programmstart muß die Tageszeit laut 
vorgegebenem Muster eingegeben werden. 
Danach werden im linken großen Spielfeld 
und im Feld "Anfang" die Ausgangsposition 
des Spiels (zufällige Anordnung) und im Feld 
"Ende" die zu erzielende Endposition (auch 
zufällig erzeugt) dargestellt. Die Tageszeit-Uhr 
läuft von Programm-Anfang bis -Ende. 


O 


Das Spiel kann mit "J" angenommen oder mit 
"N" ausgesucht werden. Mit "*" wird das 
Programm abgebrochen. O 


Nach "J" wird die Spielzeit-Uhr und damit das O 
Spiel gestartet. Statt wie im Original die Steine 
zu schieben, muß hier das Symbol des zu 
verschiebenden Steines eingegeben werden. 
Natürlich reagiert das Programm mit einer 
Neudarstellung des Spielfeldes nur nach 
Schieben eines "erlaubten" Steines (ein Stein, 
der unmittelbar neben, unter oder über dem O) 
Leerfeld steht). Jeder Zug wird gezählt und 
die Gesamtposition des Spielfeldes mit der 5 
Anordnung im "Ende"-Feld verglichen. .Das 
Spiel dauert solange (siehe auch Spielzeit- 
anzeige), bis die Endposition erreicht oder das 
Programm abgebrochen wird. 

(Hans Kleiner) 
PETTTETTERBETETRERBEREETETTETTERTESEETTETEE I ELZ TEN 


O 


1000 ELSE FOLGE%CI)I- 


14 STEP 4: FOR S=2 TO 


LISTING SPIELE 


I 
I 
j 
I 
I 
j 
I 
j 
I 
I 
I 
I 
| 
I 
I 
I 
I 
I 
I 
j 
l 
j 
I 
I 


©: 20 ©. 9: 70 N. 10: 9.29 


65 


Netzgerät und 


Fernsehadapter 
für den CPC 
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66 HARDWARE 


Viele CPC Freunde kaufen oder kauften sich 
ihren Rechner für sinnvolle Anwendungen, 
wie Textverarbeitung oder Dateiverwaltung 
und haben somit einen Grünmonitor. Nach 
kurzer Zeit aber stellen sie fest, daß es auch 
ganz interessant wäre, die Farbmöglichkeiten 
des CPC auszunutzen. Die Firma Schneider 
oder besser gesagt Amstrad, bietet einen 
Modulator, genannt MP-1 bzw. MP-2 an, der 
zuerst durch mangelnde Liefermöglichkeit und 
dann durch schlechte Leistung glänzt. Dies ist 
auch nicht verwunderlich, da das RGB Signal 
erst in ein PAL HF Signal gewandelt wird und 
anschließend im Fernsehgerät demoduliert 
wird und im Farbteil wieder als RGB Signal 
ansteht. Dadurch entstehen natürlich Verluste, 
die sich in blassen Farben, mangelhafter 
Trennung und unmöglicher 80 Zeichendarstel- 
lung äußern. 


Dabei gibt es unter bestimmten Voraussetzun- 
gen wesentlich bessere Möglichkeiten, die zu- 
dem auch noch preiswerter sind. 


Zuerst benötigen Sie ein Farbfernsehgerät mit 
EURO AV- oder DIN AV-(Video) Anschluß 
oder noch besser ein GRUNDIG Stereo Gerät 
ab BJ 79. Letzteres bietet nicht nur eine Bild- 
qualität, die der des Schneider Monitors (hin- 
ter dem sich auch nur ein abgewandeltes TV 
Chassis verbirgt) ebenbürtig ist, sondern auch 
die Wiedergabe des CPC Tones in bis zu 2 x 
35 Watt Stereoqualität. Beim großen 67er Bild- 
schirm ist einwandfreie 80 Zeichendarstellung 
möglich. Wenn Sie über ein anderes Fabrikat 
verfügen, besonders ausländische Produkte, 
müssen Sie aber mit Abstrichen beim Bild 
rechnen, da diese Geräte teilweise nicht die 
nötige Qualität besitzen (drückt sich auch im 
Preis aus). 


Da die Konsole des Schneider Systems ihre 
Betriebsspannung aus dem Monitor bezieht, ist 
weiter ein externes Netzgerät erforderlich, 
welches auch zum Einsatz bei Peripherie und 


Fremdmonitoren kommt. Handelsübliche Stek- 
kernetzteile sind meist nicht geeignet, da sie 
nicht über ausreichende Siebung und Stabili- 
sierung verfügen. Also selber bauen ... 


464er Besitzer kommen hierbei noch etwas 
preiswerter davon, da ihr Rechner nur 5 V 
Spannung benötigt. Die anderen Schneider 
benötigen zusätzlich 12 V für die Floppy. 
Keine sehr intelligente Lösung! 


Die nachstehende Schaltung ist leicht auch von 
ungeübten aufzubauen. Nur wer sich noch nie 
mit Elektronikbasteleien befaßt hat, sollte 
vielleicht einen Bekannten zu Rate ziehen. Das 
Herz des Netzteiles besteht aus dem oder den 
integrierten Spannungsregler(n) (je nach 
Rechnertyp), der Serie 78S... . Er wird durch 
C3 - C6 geschützt und erhält über Siebelko C 
1,2 Spannung. Auf einen Platinenvorschlag 
wurde verzichtet, da die Schaltung eindeutig 
ist und vom Rechnertyp abhängt. Sie kann da- 
her leicht auf einer Lochrasterplatine aufge- 
baut werden. Beachten Sie bitte, daß der Tra- 
fo für den 664 und 6128 einen separaten Ab- 
griff benötigt. Ferner ist auf die richtige Po- 
lung von C 1,2 und des Reglers zu achten. 
Außerdem sind bei den Sp.reglern die angege- 
benen Kühlkörper zu verwenden. Nach Fer- 
tigstellung des Gerätes, sollten Sie mit einem 
Voltmeter die Ausgangsspannungen messen, 
um keine unliebsamen Überraschungen, sprich 
Beschädigungen ihres Rechners zu erleben. 
Sollten sie nicht stimmen, haben Sie entweder 
das IC falsch gepolt oder beim Löten verheizt. 


Die Bauteile wurden bewußt großzügig di- 
mensioniert, um auch weitere Peripherie zu 
versorgen. Der Aufbaupreis mit passendem 
Gehäuse wird beim 464 ca. 40,-- und bei den 
anderen Rechnern 55,-- DM kosten. Alle 
Teile sind im einschlägigen Elektronikhandel 
oder bei den meist preiswerteren Elektronik- 
versandgeschäften zu erhalten. 


CPC 464/664/6128 


Netzgerät und 
Fernsehadapter 


für den CPC 


Als nächstes benötigen wir ein passendes Ka- 
bel zur Bildübertragung. Hierbei kommt es auf 
den Anschluß an ihrem Fernseher an. Sehen 
Sie dazu in ihrer Betriebsanleitung nach und 
notieren sich, wenn vorhanden, die Stecker- 
belegung. Suchen Sie sich nun in den Beispie- 
len das Kabel aus. Es lohnt sich in jedem Fall 
dieses selbst anzufertigen, da im Handel z.B. 
ein Kabel 6 Pol DIN auf EURO Buchse bis zu 
70,-- DM kostet. Im Selbstbau ist es für DM 
15,-- zu realisieren. Wenn Ihr TV Gerät einen 
6 Pol DIN Videoeingang besitzt, ist in den 
meisten Fällen eine Steuerspannung von 12 V 
nötig, damit der Eingang aufgeschaltet wird. 
Diese können Sie auch dem Netzteil entneh- 
men. Beim 464 reicht es, eine 9 V Blockbat- 
terie in die Steuerleitung zu schalten. Beide 
Male Polung beachten! (s. Beispiele). 


Wenn Sie ein GRUNDIG Gerät besitzen, wel- 
ches noch keinen EURO Eingang hat, sondern 
nur den eben erwähnten Videoeingang, so bie- 
tet GRUNDIG einen sog. Computer Anschluß 


ERDRAHIUNGSBLISPIELE 


Adapter an, den CAA 1 - CAA 3 je nach Ge- 
räteart. Mit diesem ca. 40,-- DM teuren 
Adapter haben Sie dann einen vollwertigen 
RGB Anschluß in Form einer EURO Buchse 
an ihrem Fernseher, der Ihnen die eingangs 
beschriebene Monitorqualität liefert. Der 
Adapter wird im übrigen auch für BTX ver- 
wendet und kann als Ersatzteil (angeben!) über 
den guten Radiofachhandel bei GRUNDIG 
geordert werden. 


Bei der Tonübertragung kann das angefertigte 
Kabel auch für den Anschluß an die HIFI 
Anlage genutzt werden, oder ein vorhandenes 
Kabel kommt am Fernsehgerät zum Einsatz. 
So, nun steht Ihrer Hardwarebastelei nichts 
mehr im Weg. Bei der Tonübertragung kann 
das angefertigte Kabel auch für den Anschluß 
an die HIFI Anlage genutzt werden, oder ein 
vorhandenes Kabel kommt am Fernsehgerät 


zum Einsatz. So, nun steht Ihrer Hardware- 


bastelei nichts mehr im Weg. Also Freunde, an 
die Lötkolben! (Wilhelm Fähndrich) 


1. Audiokabel (auch für Anschluß an HIFI Anlage) 


2. CPC auf DIN Videoeingang (wenn auf Tonübertragung zum TV Gerät 


verzichtet wird, kann die Audiokupplung entfallen) 


HARDWARE 
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CPC 464/664/6128 


wenn der Scart Anschluß des Fernsehgerätes keine KGB Syn. Belegung 


N 


Y 


id 
e 


Netzgerät und Fernsehadapter 


hat, Verbindung von Pol 6 CPC nach Pol 20 Scart legen. 


(einlal-, 
a 


4. Die Belegung bei anderen FHingängen (Cinch/Klinke oder BNC) ist 


entsprechend. | 
SCHALTBILD 
CPC 664 6128 
En 
S, | 


Im! 


STÜCKLISTE 
Trafo 22° V prim. 9-30 V sek. 1,5 Amp. (CPC 464) 

" " i " + 15-30 V sek. 2x 1 Amp. (CPC 664,6128) 
Sp.regler IC 1: L 7855 2 Amp. 

2 IC 2: L 78812 
Gleichrichter: je B30 C 
E12 OO MUE 
C 3,6 50,22 ur 
C5,6 : 0,1 uF 
Sicherung : je 2 Amp.tr. 
S.I: 339 WA & 
1 Lochrasterplatine Furopaformat 
je 1 Kühlkörper TO 220,17K/W 


_Anschluß CPC__ 


® 


68 HARDWARE 


Schneide 


akti 


Schiffe versenken 


Spielablauf: Schiffe versenken funktioniert wie 
das bekannte Spiel für 2 Personen. Der Com- 
puter rechnet dabei die Position der 5 Schiffe 
aus und der Spieler muß die Positionen dann 
durch Eingabe der Koordinaten erraten. Tref- 
fer werden durch einen roten Punkt und dem 
Geräusch eines Treffers angezeigt. Geht der 
Schußversuch daneben wird die Stelle 'mit ei- 
nem weißen Punkt markiert. (Eitner) 


30 REM # Schiffe versenken # 

60 REM . 

70 GOSUB 1340: REM Titelbild 

80 DIM ac120) 

90 DATA 5,4,3,3,2 

100 REM 

110 REM *****Festlegung der Position der 
Schiffet*##* 

120 REM z 

130 RANDOMIZE TIME 

140 FOR i=1 TO 5 

150 READ gr 

160 x=INTCRND*10+1) 

170 y=INTCRND*10+1) 

180 s=INTCRND*2+1) 

190 IF y<2 OR y>3 GOTO 160 

200 IF x<2.DOR x>3 GOTO 160 

210 ON s GOTOD 220, 340 

220 IF x<INTCCgr+2.4)/23 DR x>10-INTCCgr 
+1.4)/2) THEN 160 

230 FOR xv=x-INTCgr/2) TO x+INTCgr/2) 

240 d=(xv-1)*10+y 

e50 IF d?>11 GOTO 280 

260 IF aCd)=1 OR ald+1)=1 OR aCld+9)=1 OR 
aCd+10)=1 DR ald+11)=1 THEN GOTO 160 

270 GODOTO 290 

280 IF aCd)=1 DR ald+1)=1 OR ald+9)=1 OR 
aCd+10)=1 OR ald+11)=1 DR ald-1)=1 OR a 
Cd-9)=1 OR ald-10)=1 OR ald-11)=1 THEN G 

0TO 160 

290 NEXT xv - 

300 FOR xs=x-INT(gr/2) TO x-INTCgr/2)+gr 

-1 

310 al(lxs-1)*10+y)=1 

320 NEXT xs 

330 GOTO 450 

340 IF y<INTC(gr+t2.4)/2) OR y>10-INTCCgr 

+1.4)/2) THEN 160 

350 FOR yv=y-INT(gr/2) TO y+INT(Cgr/2) 

360 d=(x-19*10+yv 

370 IF d>11 GOTD 400 

380 IF atd)=1 OR a(ld+1)=1 OR a(ld+393)=1 OR 
aCd+10)=-i OR aCd+11)=1 THEN GOTD 160 

390 GOTO 290 

400 IF a(Cd)=-1 DR ald+1)=1 DR acd+39)=1 OR 
aCd+10)=1 OR ald+11)=1 OR ald-1)=-1 OR a 
cd-9)=1 OR atd-10)=1 DR ald-11)=1 THEN G 

DTO 160 

410 NEXT yv 

420 FOR ys=y-INT(gr/2) TO y-INTCgr/2)+gr 

=1 

430 aC(x-1)*10+ys)=1 

440 NEXT us 


BIETET 
KINNRERTT 
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WILHELMSTRASSE 7 
5240 BETZDORF 
TEL.: 02741/23537 & 23107 
VON PROFIS ERSTELLTE SOFTWARE 

ZU EINEM MARKTORIENTIERTEN PREIS 


AUFTRAGSABWICKLUNG 


Diskette/Handbuch, lauffähig auf CPC 464 und 6128, 
. Modularer Aufbau, schnellster Zugriff durch Random Access 


Auftragsahwicklung bestehend aus: Erfassung von 


Auftrag und Angebot incl. Fakturierung 398,00 DM 
Bestellwesen 398,00 DM 
Lagerwirtschäft 298,00 DM 
Statistik 98,00 DM 


FIBU 


Diskette/Handbuch, lauffähig auf CPC 464, 664 und 6128 398,00 DM 
3" und 5,25" Vortex Version 
(Umsatzsteuer, Summen und Saldenlısten, G & V Rechnung, Bilanz) 200 Konten und 500 Buchungen 


pro Monat bei größerem Massenspeicher unbegrenzt erweiterbar 
(1 MB Floppy) 


Außerdem bieten wir folgende Programme lauffähig auf den Computern CPC 664, 6128 und 
JOYCE an: 


VEREINSVERWALTUNG für 550 Mitglieder 248,00 DM 
Adressverwaltung mit mehreren Sortiermöglichkeiten - Unterteilung nach verschiedenen Sparten 
(Sportart, Unterrichtsfach, Autotyp etc.)- bei jeder Adresse können Informationen abgelegt werden - 
Serienbrieferstellung - Adressaufkleberdruck - Druck von Bankeinzugsformularen und 

Überweisungsträgern usw. 


ADRESSVERWALTUNG für 1160 Personen 128,00 DM 


Mehrere Sortiermöglichkeiten - Infozeilen - Serienbrief - 
Adressaufkleberdruck. 


Diese Programme sind in Turbo-Pascal geschrieben. 
In Vorbereitung sind: 
Vokabeltrainer - Kassenbuch - Discmonitor Assembler/Disassembler 


Demo Fibu (Disk.) 


25,00 DM 
Demo ABLAS (Disk.) 


25,00 DM 


NHÄNDLERANFRAGEN ERWÜNSCHT 
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69 _LISTING 


70 LISTING_ SPIELE 


& .O.. 0.48: 29:05 0% 9: 0.79: 9 970.09 © ©: 9.0 D..0:59:.70 0 


450 NEXT i 

450 IF INKEYS="” GOTD 460 

470 REM 

380 REM ***** Zeichnen des Spielfeldes * 
EM 

490 REM 

500 MODE 1: BORDER 1: INK 0,1: INK 1,24: 
ı_INK 2,26: INK 3,6 

S10 WINDOW #1,1,26,1,23: WINDOW #2,28,40 
‚1,4: WINDOW #3,1,40,25,25: WINDOW #4,28 
| 40,6,7: WINDAW #5,28,40,9,13 

IS20 PEN#1,1 

IS30 PRINT#1,” !A!BIC!IDIE!FIG!H!T!J!” 
|540 FOR A=1 TO 10 

S50 PRINT #1, ”--------------- +" 
S60 PRINT #1, USING”##”;A;: PRINT#1,”!”; 
I570 FOR B=1 10 9 

IS80 PEN #1,0: PRINT #1,CHR$C233); :PEN#1, 
11 : PRINT#1,”!”; 

IS90 NEXT 

ı600 PEN #1,0: PRINT #1,CHR$C233);:PEN #1 
1,1 : PRINT#1,”!”;:PRINT#1, USING”##”;A 
510 NEXT 


630 PRINT#1,” !A!BIC!ID!IE!FIG!H!I!JI” 
640 REM 

650 REM ***** Abfrage wohin geschössen w 
lerden soll ***#** 

I660 REM 

1670 PRINT#2, "Auf welche Position m 
joechten Sie zielen ”?” 

880 INPUT #4,ziel$ : CLS#S 

‚go REM 

700 REM **%*%*%* Zerlegung der Eingabe und 
IKontrolle ob Treffer ***** 

I710 REM 

1720 IF ziel$="”” GOTOD 790 

1730 za-LEN(ziel$)-1 

ı740 a=VALCLEFTSCZIiel$,za)) 

750 IF LENCSTRSCa))-1<>za GOTD 790 


750 IF a<£1 DR a>10 DR a<>INTCa) THEN GOT 


D 790 

1770 a$-=-UPPERSCRIGHTSCZIiEel$,1)) 

I780 IF a$<”A” OR a$>”J” THEN GOTOD 790 EL 
ıSE i=ASC(Ca$)-64: GOTO 810 

790 SOUND 1,100,30 

I800 PRINT#S, "Fehler !”: GOTO 670 

ı810 FELD=CI-1)*10+A 

‚ge0 IF ACFELDI<>-1 GOTD 840 

‚a0 PRINT#S, "Das war schonmal !”: GDOTO 6 
70 

IB4O vers=vers+l 

850 IF ACFELDI=1 THEN ACFELDI=O: PEN 3: 
‚g9TD BBO 

BEO ACFELD)I=--1: SDUND 1,400,50: PEN 2: G 
Ioro 3930 . 

ı870 REM 

880 REM ****%* TREFFER 

890 REM 

I900 ACFELDI=--1 

IS10 FOR N=100 TOD 800 STEP 16 

320 SDUND 1,N,2,15 

930 NEXT 

Ig40o FOR t=1 10 7 STEP 0.2 

9850 SOUND 1,400,4,t,,,1 

350 NEXT 

370 SOUND 1,0,50 

980 Treffer-Treffer+1 

530 spalte=A*2+1 

000 reihe=1*2+2 

ne LOCATE reihe,spalte: PRINT CHR$C233 
3 


1020 
1030 


1040 


chiffe versenken 


PEN 1 
PRINT #3, USING”Versuche=-####” ; Vers 


PRINT#3, TABC20) USING”Treffer = ##” 


‚Treffer 


1050 
1060 
1070 
1080 
” 

1030 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1130 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 


/N)D ?” 


1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


1380 
1390 
en”; 

1400 
1410 
1420 
1430 
1440 
1450 


INK 3,24: PAPER O: PEN 1 


IF treffer-17 GOTO 1080 

GOTD 670 

REM 

REM ***** Alle Schiffe vesenkt **** 


I 
I 
| 
r 
REM | 
PRINT#5, "Weiter auf Tastendruck” 
FOR N=100 TO 200 STEP 10 | 
SOUND 1,n,2 
ELS#2: CLS#4 
IF INKEYS<>”” GOTO 1210 
NEXT 

FOR n=200 TOD 100 STEP -10 | 
SOUND 1,n,2 
IF INKEYS<>”""” GOTO 1210 | 
NEXT 
G0T0 1110 
FOR I=0 ID 320 
PLOT i,1,0 
DRAW i,400,0 

PLOT 640-i,1,0 I 
DRAW 640-1,400,0 | 
NEXT 
LOCATE 1,1: PRINT”Noch ein Spiel (J 


eS-INKEYS: IF e$-”” GOTD 1280 A 
IF UPPERSCeS)="”J” THEN RUN 

IF UPPERS(CeS)="N” THEN END 

GOTO 1280 

REM 

REM ***"%* Titelbild 

REM 

MODE 1 

ENU 1,100,-1,20 

BORDER 2: INK 0,2: INK 1,2: INK 2,3 


ELS 
LOCATE 1,25: PRINT ”Schiffe versenk 


SOUND 1,60,1900,4,1 

SOUND 2,80,1900,2,1 

SOUND 4,95,1900,0,1 

FOR x%=0 ID 368 STEP 2 

FOR y%=0 ID 16 STEP 2 

IF TEST (x%,4%) THEN PLOT 2*x% + 40 


‚y“*3 + 236,2: PLOT 2*x% + 41,y%*3 + 236 


ei 
1460 


ELSE GOTO 1490 I 


PLOT 2*x%+40, y%*3+235,2: PLOT 2*x%+l 


41,4%*3+235,2 | 


1470 


PLOT 2*x%+40,y%*3+234,2: PLOT 2*x%+, 


41, y%*3+234,2 


1480 


41,y%*3+233,2 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 


PLOT 2*x%+40,y%*3+233,2: PLOT Drxze 


LOCATE 14,23 
PEN 2: PRINT”Taste druecken” 
RETURN 


| 
NEXT | 
NEXT | 
PEN 3 
LOCATE 1,13 | 
PRINT” Ein Spiel von:” | 
PRINT ' 
PRINT” Peter Eitner” 
PRINT” Nussbaumweg 16” | 
PRINT” 7110 Dehringen” 
PRINT t 
PRINT” Tel.:07941/2572” 

| 

I 
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SPACE SHUTTLE 


Das Programm läuft nur auf dem CPC 464 
und ist ein Spiel-Simulationsprogramm, wel- 
ches nicht in einer sinnlosen Ballerei auf 


aktR, 


ständig Euren Energieverbrauch beobachten, 
vor allen Dingen darf die Außenhaut der Fäh- O 
re eine Temperatur von 1000 Grad nicht 


imaginäre Gegner ausartet. Vielmehr muß man 
in einer friedlichen Mission einen aus seiner 
OÖ Bahn geratenen Satelliten bergen. 


120 "Ha BILDSCHIRM SETZEN #HHHHHRHRRRRHRRSHRRRIBHRSREEHISRIHRIHRHIHH HH HERR 
140 MODE 1:WINDOW #1,2,39,7,16:WINDOW #2,2,10,7,16:WINDOW #3,20,39,7,16 

150 "#HHHHHRHH FARBE SETZEN HHHHHHHHRHRBBRBRHBBISRIHRSBRHSRISESSSSH SSH SRH AH HH AH 
160 BORDER 1:INK 1,26:INK 2,12: INK 3,15 

170 "HHHHHHHHHH SOUND HHRHHHRRHHHHHHHHH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH 
180 ENV 1,1,0,10,1,-10,0,1,0,10,1,-11,0 

190 ’#HHHHRHHHH TITELBILD BERRHRRRBBRERHBRBBIBHRRBIBRHSBIRESHBIHREBHSIHHSHHSHHEHHEHH ISA AHA 
200 PEN 1:60SUB 750:G0SUB 760:G0SUR 750:LOCATE 1,3:G0SUB 750:G0SUB 770:G0OSUB 790 
210 READ FX,PY:IF FPX=Ö0 THEN 220 ELSE FLOT PX,FY,1:READ N:FOR A=1 TO N:READ X,Y:D 
RAW X,Y:FOR T=1 TO 10:CALL &BD19:NEXT:NEXT:GOTO 210 

220 READ A,B: IF A=-1 THEN 230 ELSE SOUND 1,A,B,5:60T0 220 

230 Y=5:G0SUB 740:FOR Y=6 TO 11:L0CATE 4,Y:PRINT"X"3SPC(15) "X": NEXT:Y=12:G0SUB 7 
40:FEN S:LOCATE 8,7:PRINT"S F A C E":LOCATE 6,10: PRI 

NT"S HUT T L E":LOCATE 10,24: PRINT"SPIELANLEITUNG ? J/N":PEN 1 

240 W$=INKEY$: IF W$="" GOTO 240 

250 IF W$="f" OR W$="J" THEN GOSUB 1020:G0T0 290 


260 IF W$="n" OR W$="N" THEN 290 


270 GOTO 240 

280 ’#HHHHhhhhh SHUTTLE MONITOR HHHHHHHHHHHRHH HH HH HEHE HH HH HH HH HH HH HH HH HH 
290 CLS:BORDER Ö:FEN 2:G60SUR 780:N=S:FOR Y=2 TO 6:LOCATE 1,Y:FOR X=1 TO N:PRINT 
CHR$ (143) 3 :NEXT:FRINT CHR$ (212) ; SFC (38-2XN) CHR$ (213) 

s:FOR %=1 TO N:FRINT CHR$ (143) 5; :NEXT:N=N-1:NEXT 

300 FOR Y=7 TO 17:PRINT CHR$ (143) ; SFC (S8) CHR$ (145) 5; :NEXT:GOSUB 780: LOCATE 2,17:F 
RINT CHR$ (215); SPC (36) CHR$ (214) 

310 LOCATE 3,20: FRINT"TANK"3SPC(F) "BATT"3SFC (13) "HOEHE";SFC (3) "POS’":LOCATE 3,27 
:PRINT"LUFT"3SPC (3) "TEMP";SPC(13) "SFEED";ZSFC (3) "ZEIT 

":G0SUB 790:G605SUB 890:G0SUR 900:G60SUR 910:G0SUB 920 


320 FLOT 1,120,2:DRAW 1,1:DRAW 639, 1:DRAW 639, 120:FLOT 120,120:DRAW 120,1:PLOT 2 


40,120:DRAW 240,1: PLOT 400, 120:DRAW 400,1:FLOT 520,1 

20:DRAW 520,1:PLOT 1,57:DRAW 240,57:PLOT 400,57:DRAW 640,57:PLOT 240, 90:DRAW 400 
‚90 

330 GOSUB 670 

340 ’HHHHHHHhhH ANFANGSWERTE SETZEN HHHHHHHHHRHRHHHHHHHHRRHHRHHHIHHRRSHIH HAIE SEHE 
350 TANK=365000: BATT=4000: LUFT=20000: TEMF=35: HOEHE=0: PO=360: SP=0: ZEIT=18:0=INT (3 
61 XRND) :ALT=INT (RND (0) X20) +36000: Z2=0:9=0:Y=17 


CPC 464 FORTH 


leben auch Sie auf Ihrem CPC 464 die Geschwindigkeit eines schnal- 

en FORTH-Compliers mit Turtiegrafik, Editor, Assembler, Tracer unıl 

De-Complier. Dieses System Ist Im neuesten FORTHSI Standard ge- 

hrieben und erzeugt kompakte Programme. Die Grafik Ist um Kreis- 
Füllbefehle erweitert, das System setzt ebenfalls Windows ein. 

as Programm wird mit einem 180-seitigen deutschen Handhuch 


uf Disk 3", 5,25” 


Forth Library 99,- DM 
Ausführliches Prospektblatt bei: 


FORTH-SYSTEME Angelika Flesch 
Postlach 1226, 7820 Titisoe-Heustadt, @ 07651/1665 


überschreiten. Die Spielanleitung gibt weitere () 
Hinweise. Das Shuttle läßt sich erst ab einer 
Höhe von 35500 km drehen. Bei der Bergung 
muß sich der SAT genau über den beiden 
Spitzen des Greifarms befinden. Und nun viel 
OÖ Gesteuert wird mit jedem Joystick. Ihr müßt Erfolg. (Faehndrich) 


®) 
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© 0-8: 0 20.9: 0 ©: -8’:0..0 00:08:90 98.0.9879: :970:9-.9 


SPACE SHUTTLE 


Z360 "HHHkhh JOYSTICKSCHLEIFE 1 KERRHHHHHHHHR HH HH HH HR HH HH HH HH 
370 FEN 35: IF BATT<=0 THEN 1170 ELSE LOCATE 10,21:FRINT USING"####"; BATT:LOCATE 7 
5,21:PRINT USING"###"3PO:LOCATE 36,24:FRINT USING"## 


380 IF JOY(O)=1 THEN SP=SFP+50:G0OSUB 890 

390 IF JOY(O)=2 THEN SP=SP-100:G0SUB 920 

400 IF JOY(O)=0 THEN PEN 2:G0SUB 890:G0SUB 920:PEN 3 

410 IF SP<=0 THEN SP=0: TEMP=TEMP-1:1L=0:60SUB 810: IF S<>0O THEN GOSUB 860 

420 IF SP>O AND SP<2000 THEN SOUND 2,638, 28, 14:5=1: TEMP=TEMF+1:L=2:G0SUB 810 
430 IF SF>=2000 AND SP<4000 THEN SOUND 2,506, 28,14: TEMP=TEMP+2:1L=4:G0SUB 810 
440 IF SP>=4000 AND SP<6000 THEN SOUND 2,426, 28, 14: TEMP=TEMF+3:L=6:G0SUB 810 
450 IF SP>=6000 THEN SP=6000:SOUND 2,319, 28,14: TEMF=TEMP+4:L=8:GOSUB 810 

4&0 IF HOEHE?>35500 AND SP=0 THEN 490 ELSE GOTO 380 

470 "HHRHHHHRER JOYSTICKSCHLEIFE 2 HHSHHHEHHHEHRBHBHHERHIRRISHR RR SHARE AHA 
480 IF JOY(O)=0 THEN PEN 2:G0SUB 900:G0SUB 910:PEN 3 

490 IF JOY(O)=4 AND FO>O THEN GOSUB 900:FO=FO-1 

S00 IF JOY(O)=8 AND PO<360 THEN GOSUB 910:PO=FO+1 

510 IF JOY(O)=4 AND PO=0 THEN GOSUR 900:P0=360 

520 IF JOY(O)=8 AND PO=360 THEN GDSUB 910:F0=0 

530 .’HHRHHHHRhH SATELLITENSTEUERUNG HHRRHEHHHRSRRRERSHRHRIRRIRSHIHSHRSHHHIHHERHI HEN 
540 IF FO=0 AND HOEHE=ALT AND ZZ=0 THEN ZZ=1:G0SUB 710 

550 IF ZZ=1 THEN ZEIT=ZEIT-1:IF ZEIT<O THEN CLS #1:G0SUB 670: 22Z=0: ZEIT=20:ALT=AL 
T-1:Y=17 

560 IF JOY(O)=0 THEN FEN 2:G0SUB 900:605UB 910:PEN 3 

570 IF JOY(O)=4 AND ZZ=1 AND XX>2 AND XX<33 THEN GOSUB 720: XX=XX+1:G0SUB 720:G0T 


580 IF JOY(O)=8 AND ZZ=1 AND XX>2 AND XX<33 THEN GOSUB 720: XX=XX-1:G0SUB 720:60T 


590 IF JOY(O)=4 AND ZZ=1 AND XX>=33 THEN XX=XX+1:CLS #3 

600 IF JOY(O)=B AND ZZ=1 AND XX<=2 THEN XX=XX-1:CLS #2 

610 IF JOY(O)=4 AND ZZ=1 AND XX<=2 THEN XX=XX+1 

620 IF JOY(O)=8 AND ZZ=1 AND XX>=33 THEN XX=XX-1 

630 IF JOY(O)=1& AND ZZ=1 THEN GOSUB 680 

640 GOTO 370 

650 "HH UNTERFROGRAMME HHRRHRRRRRHRR HR HR HH HH HH HH EN 
660 ’#HHHhththh GREIFARM HERR HR HH HH HH HH HHRHHHHHRHHRHHHHHH HN 
670 FEN 1:LOCATE 20,17:FRINT CHR$ (226) ; CHR$ (226) :RETURN 

680 PEN 1:IF Y>7 THEN SOUND 1,956, 20,15:BATT=BATT-100 ELSE Y=8 

690 -LOCATE 20, Y-1: PRINT -CHR$ (226) 5; CHR$ (226) : LOCATE 20, Y: PRINT CHR$ (149) ; CHR$ (149 
):Y=Y-1:FOR N=1 TO 3:CALL %BD19:NEXT:IF Y=YY AND XX+ 

3=20 OR Y=YY AND %XX+3=21 THEN 1110 ELSE RETURN 

700 "HH SATELLITEN ABBILDEN HEHE HEHE 
710 SOUND 1,253, 20,15: XX=INT (TOXRND (0) ) +2: YY=INT (7XRND (O0) ) +8 


“ 
720 LOCATE XX,YY-1:PEN 1:PRINT " "ZCHR$(127)5" "3CHR$(244)5" ";CHR$(127)5" ":LOC 
ATE XX,YY=PRINT ” "3CHR$ (127); CHR$ (154) ; CHR$ (143) ; CH 
R$ (154) 5 CHR$ (127) 5" ":3LOCATE XX,YY+1: PRINT " ";CHR$(127)5" ";CHRS (252); " "SCHRS$( 


127)3" "LPEN S:RETURN 

730 ’HHHHHHthhh ZU TITELBILD HERREN 
740 FOR X=4 TO 20:L0CATE X, Y:PRINT"X":NEXT:RETURN 

750 FOR N=1 TO 40:PRINT"&"3:NEXT:RETURN 

760 FOR N=2 TO 24: PRINT"*";3SPC (38) "X"; :NEXT:RETURN 

770 PEN 3:LOCATE 7,2:FOR N=1 TO 28:READ C:PRINT CHR$(C) 5: NEXT:PEN 1:RETURN 

780 FOR X=1 TO 40:PRINT CHR$ (143) 5 : NEXT: RETURN 

790 IF C=104 THEN RETURN ELSE CALL, &30 

800 "’HHHHHRHHHH AKTUELLE WERTE PRINTEN #HHHHHHRHERRHRRSHRRSRESHESBRSHR SHE 
810 LOCATE 28,24: PRINT USING" ####";SP:LOCATE 17,19:FOR N=1 TO L=:FRINT CHR$ (221); 
:NEXT:FOR A=1 TO (8-L):PRINT" "3:NEXT:TANK=INT (TANK- 

(SP/S))zIF TANK<=0 THEN 1190 ELSE LOCATE 2,21:PRINT USING" ######" 3 TANK: HOEHE=HOE 
HE+ (SP/50) 

820 LOCATE 27,21:PRINT USING" #####";HDEHE: IF S=1 THEN LUFT=LUFT-1 

830 IF LUFT<=Ö0 THEN 1210 ELSE LOCATE 2,24: PRINT USING" #####";LUFT:IF TEMP<{=35 TH 
EN TEMF=35 

840 IF TEMF>=1000 THEN 1150 ELSE LOCATE 10,24: PRINT USING" ####"; TEMP: RETURN 

850 "HH HDEHENABNAHME HRRRRRRHHRRHRRRRRSHRBRHRHRISRHBHIIRIHEHSSHEHIESHHH SCH AHA HH HEN 
840 IF JOY(O)=2 THEN HOEHE=HOEHE-1: IF HOEHE<=0 THEN HOEHE=Ü 

870 CALL &BD19:LOCATE 27,21:FRINT USING" #####" 5; HOEHE: RETURN 

880 ’#HHHHHhhhh RICHTUNGSDISFLAY #HHHHEBHRBRRHEBHRESBISSHHRR HEHE HABS HS HSHHHIHHHE AI 
890 LOCATE 20,21:PRINT CHR$ (240) ;CHR$ (240) : RETURN 

900 LOCATE 19,22:FRINT CHR$ (242) :LOCATE 19,23: PRINT CHR$ (242) :RETURN 

910 LOCATE 22,22:PRINT CHR$ (243): LOCATE 22,23: PRINT CHR$ (243) : RETURN 

920 LOCATE 20,24: FRINT CHR$ (241) ;CHRS$ (241) : RETURN 

930 "#HRRHHRHHR VERLOREN HHHRHHRHRRBHBHHRRSRBISRBIHEBBIHBISISEISHHIHHHSISIHHSHEIH HEHE ROHR HHIE HH AH 
940 CLS: INK 0,24,6:BORDER 6,24:FOR N=1 TO 80:CALL &BD19:NEXT:SOUND 2,200, -2,7,1, 
0,15:BORDER O:INK 0,0:PEN 1:RETURN j 
950 LOCATE 2,10:FRINT"DER SATELLIT BEFAND SICH IN EINER HOEHE":LOCATE 15,12: PRIN 
T"VON"zZALT5"km":LOCATE 5,14:PRINT"BEI EINER POSITION i 

VON" 50; "GRAD": RETURN 

960 LOCATE 12,20: PRINT"NOCHEINMAL ? J/N" 

970 I$=INKEY$: IF I$=" " THEN 970 

980 IF Is="J" OR I$="j" THEN INK O0,1:RUN 

990 IF I$="N" OR I$="n" THEN INK 0,1:BORDER 1:END 

1000 GOTO 970 
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Schneider 


SPACE SHUTTLE 


1010 ’#HH#H#HHhh SPIELANLEITUNG HHHHHHHHHHH HEHE HH HH HH HH HH HH HH 
1020 CLS: PRINTER SPIELANLEITUNG PRRRKRKKKKOKKKSIe sind Kommandant eines 
Space Shuttle und haben die Aufgabe,einen aus seine 

r Bahn geratenen Satelliten zu bergen." 

1030 FRINT"Die Radarstation meldet eine augenblick=liche Hoehe des Satelliten vo 

n:":FEN 3:PRINT" 36000-368020 km":PEN 1:PR 

INT"Nach ihrem Start muessen Sie auf Treib= stoff,Luft und Hoehe achten.Die maxi 

male"; 

1040 FRINT"Aussenhauttemperatur darf";3:PEN 3:PRINT" 1000 Grad C";:PEN 1:PRINT" 

nicht ueberschreiten.Sobald Sie eine Hoehe von 35 

500 km erreicht haben und ihre Geschwindigkeit OÖ ist,laesst sich das Shuttle 
drehen.Wenn sie den Satel=" 

1050 FRINT"liten gefunden haben,ertoent ein akusti=sches Signal und Sie haben ca 
.15 sek. umihr Schiff so zu manoevrieren,dass sich d 

ie Spitzen des Greifarms unter dem Sat.befinden und ihn auszufahren.Sollten" 
10580 PRINT"Sie nicht treffen,aendert der Sat weiterseine Bahn und Sie muessen es 
auf der naechst kleineren erneut versuchen.Ach= t 

en Sie auf Zeit und Energieverbrauch! Hinweise zur Steuerungs" 

1070 GOSUB 750:FOR N=1 TO 40000: NEXT:CLS:GOSUB 750:PRINT"Gesteuert wird mit Joys 
tick.Die Bewegungkann auf dem mittleren Display kont 

rol= liert werden.Darueber werden in einer Kette die Geschwindigkeitsstufen an 
ge= zeigt." 

1080 PEN 3:LOCATE 11,7:PRINT"Joystickbewegungen: ":LOCATE 1,9:PRINT CHR$(240);5" = 
GESCHW. A+ü"sLOCATE 1,11:PRINT CHR$(241);5" = GESCHW 

. Ä-U bzw.bei Geschw.= O":LOCATE 5, 12:FRINT"HOEHENABNAHME":LOCATE 1,14:PRINT CHR 
$(255):" = SHUTTLE DREHEN" 


1090 LOCATE 1,16:PRINT"FEUERTASTE = GREIFARM AUSFAHREN":PEN 1:G0SUB 750:FOR N=1 
TO 20000: NEXT:GOTO 290 
1100 ’HHHHHHhhh SIEG HRHRHRRHHHHR RR HH HH HH HH HEHE HEHE 
1110 CLS: INK 0,24,11:BORDER 11,24:RESTORE 1290 
en READ A,BsIF A=-1 THEN 1130 ELSE SOUND 1,A,B,5:60T0 1120 
"1130 INK 0,11s3BORDER 11:PEN 1:LOCATE 9,5: PRINT'TGRATULATTION!: I"; LOCATE 
= 7:FRINT"SIE HABEN ES GESCHAFFT":GOTO 960 
1140 "HHAHHHHHH TEMPERATUR UEBERSCHRITTEN HHHHHHHRHRHHHRHHHHH HH HR RR HH HH HH HH HH 
1150 GOSUB 940: FRINT:PRINT:PRINT" SIE HABEN DIE HOECHST-ZULAESSIGE":FRINT:FRI 
NT" TEMPERATUR UEBERSCHRITTEN !":GOSUB 950:G60T0O 
960 
1160 ’#H#HHHHhh KEINE ELEK.ENERGIE HHHHHHHHRHHHHHRHHHHH HEHE HH HH HH HH HH 
1170 GOSUR 940:PRINT:PRINT:FRINT" MANGELS ELEKTR.ENERGIE,KONNTEN SIE":FRINT:PR 
INT"IHREN AUFTRAG NICHT ERFOLGREICH BEENDEN! ":GOSUR 
950:G0TO 960 
1180 "’#HHHRHHHHH KEIN TREIBSTOFF HHHHHHHHHHHHRHHE 
1190 GOSUB 940: FRINT:PRINT:FRINT" WEGEN TREIBSTOFFMANGELS,KONNTEN SIE":FRINT:FR 
INT" IHREN AUFTRAG NICHT ERFOLGREICH BEENDEN!" :GOSUB 
950:60TO 960 
1200 ’#HHHH#HHH KEINE LUFT KHHRHRHHHHHHHHHH HH HH HH HH HH HH HH HH HH HH HH HH HH HH RR HH HH HN 
1210 GOSUB 940:PRINT:FRINT:PRINT" WEGEN SAUERSTOFFMANGELS,KONNTEN SIE":PRINT:FR 
INT" IHREN AUFTRAG NICHT ERFOLGREICH BEENDEN! ":GOSUB 
950:G0TO 960 
1220 "HHHHHHHHH DATA’S KHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HERRN 
230 DATA 164,32,49,57,56,53,32,98,121,32,87,105,108, 104,101,108,109,32,70,97,10 
1,104,110,100, 114, 105, 99,104 
1240 DATA 280,130, 22,460, 180,460, 190,500, 240,520,247,505,190,520,185,530,170,53 
‚160,525, 150,530,140,380,100,320,70,290,60, 250,55, 23 
0,55, 215, 65, 215, 75, 225,85,250, 110,270, 135,280, 138, 460, 185 
1250 DATA 280,130,19,275, 125,265, 125,265, 127, 560,120, 265, 115,275, 125,285, 120,295 
‚123,295,115,285, 112,285, 120,285, 112,265, 115, 230,85, 
225,87,230,85,240, 75, 240,65,230,55 
1260 DATA 320,70,4,420,90,570,90,605,95,520,140,460,185,3,430,200,415, 195,580, 16 
5,520,185,6,540,195,550,190,555,180,555, 165,550, 160, 
530,160,510,200,3,520,205,530, 200,535, 195 
1270 DATA 525, 150,5,470, 145,470, 155,465, 160,460, 165,513,185,518,240,5,510,258, 49 
5, 190,505, 193,515, 135, 2,580, 100,590, 107,450,185,2,42 
5,195,438,196 
1280 DATA 420, 175,7,430,175,450,160,450,140,340,110,5340,130,325,140,315,147,340, 
130,1,450,160,310,85,4,310, 95,295, 90, 295,80,310,85,0 


’ 

1290 DATA 319,90,426, 60,379, 90,426, 50, 239,50, 253,50, 284,50,319,50, 284,90, 426,50, 
239,50, 253,50, 284,50,319,50,284,90,426,60,213,130,19 

0,100, 213,50, 253, 60,213, 70,239,80,253, 80,284, 70,253, 70,213, 70,253, 100,0,2,253. 10 
0,239,50,253,50,284,50,319,50,284,70 

1300 DATA 0,2,284, 60, 253,50, 284,50,319,50,338,50,319, 100, -1,1 
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Schne 
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-SORT 


6) Mein Teilprogramm SORT ist eine Sortierrou- 
tine für Zweidimensionale Felder z.B. 
a$(xx,yy). Das Prinzip ist unter dem beilie- 

O genden Listing kurz erläutert. 


ÖOMit dieser Routine, die sich z.B. für das 
Sortieren von wahllos eingegebenen Namen 
o°#- gut eignet, hoffe ich Ihrem Wunsch nach 
kurzen und trotzdem brauchbaren Listings 
(mich regt stundenlanges Abtippen wahnsinnig 


auf, daher verzichte ich oft lieber...) so 
nachkommen zu können. 
Die eigenartige Zeilennumerierung beruht 


Ba daß ich alle Unterprogramme mit 
Zieladresse im 100er Abstand versehe und in 
) 


I 
[ 
@) I | 
I] "Heiner kickermann I 
I2 °’ | 
(®) 110 dim1=-20:dim2=-10:DIM a$Cldiml,dim2):ff=21 | 
ıe0 CLS | 
100 EEE TEST EEK 
l1o5 ’ 
®) ‚110 TERN Zuerst Feld a$ vollschreiben (je 4 Zeichen) ER | 
115 ’ ] 
1120 FOR a=1 TO dimi | 
1125 FOR b=1 TO dim2 s | 
©) ı 130 FOR c=1 TO 4 ' 
135 a$(a,b)=a$(a, bDI+CHRSCRND*25+97) ' 
‚240 NEXT 
©) 145 PRINT a$Ca,b);” ”;: 7 #0 4 Leerzeichen *** 
I1so NEXT 
1155 NEXT | 
®) 160 PRINT j 
zoo INPUT”Nummer der Spalte,nach der sortiert werden soll ? ",spa | 
P1lO GODSUB 64700 :’ *** sortieren *** | 
®) l220 CLS 
ı230 FOR a=1 TO dimi I 
jg40 FOR b=1 TO dim2 | 
@) e60 PRINT a$Ca,b); ” ”‚.. ###* 4 Leerzeichen *** | 
l280 NEXT 
1290 NEXT | 
OÖ 300 END | 
ae ER Variablen dim2 = Zahl der Spalten (2.Dimension von a$) ERREN] 
64705 mm Ff = erste freie Zeile in a$ ..r 
®) 164710 ra spa = Spalte,nach der a$ sortiert wird | 
164715 ee zi - z3 = Schleifenvariablen | 
‚84720 EEE z4 = zeigt auf niederwertigste Zeile von a$ EREER | 
®) 64725 FOR zi=1 TOD ff-2 | 
| 64730 zu=z1 
| 64735 FOR zö=z1 I0 fFf-1 | 
®) 54740 IF LEFT$Ca$(z2,spa),1)<LEFT$Ca$(z4,spa),1) THEN z4=z2:60TD 64745 | 
ELSE IF a$(z2,spa)<a$(z4,spa)THEN z4=z2 | 
164745 NEXT 
OÖ 164750 FOR z3=1 ID dim2 | 
64755 x$=-a$(z1,23):a$(z1,z3)=-a$(z4,23):a$lz4,z3)=x$ | 
| 54760 NEXT | 
OÖ 164765 NEXT 
| 64770 RETURN 
| 
| 
\ 


) 
) 
den oberen Speicherbereich lege. Man kann 
dann hinterher mit MERGE die Unterpro- 
gramme zusammenstellen, die benötigt wer- 


den, sofern man diese einzeln auf Band 
speichert. 


Sortierprinzipr Es wird innerhalb der ge- 
wählten Spalte des Feldes a$ jeweils der 
niederwertigste String herausgesucht und an 
den Anfang gestellt. Dann wird dies von Zeile 
2 an, die jetzt der neue Anfang ist, wieder- 
holt. Dieses Verfahren wird genau einmal 
weniger als belegte Zeilen vorhanden sind 
wiederholt. Der Sortiervorgang ist beendet. 
(Heiner Kickermann) 
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©: 70: 0" :0:,70::@: 9:70 299,2 2 39.10.2007. O 


Gierige Adler stürzen sich auf Ihre 
wertvolle Brieftauben. 


.. Retten Sie sie! 


Es ist wieder einmal so weit! Der Tauben- 
züchterverband lädt zum alljährlichen Preis- 
flug ein. Die Strecke führt über 1000 Kilo- 
meter. Bisher ist mit Ihren Tauben alles gut 
gegangen; alle 24 haben glücklich den letzten 
Zwischenposten vor dem Ziel erreicht. 


Böse Nachbarn, die sich schon lange über den 
Taubendreck aufregen, haben jedoch ausge- 
rechnet auf der letzten Etappe drei mächtige 
Adler auf Ihre Tauben angesetzt. 


Hier greifen Sie ein: mit den Cursor-Tasten 
müssen Sie die Tauben an den Adlern vorbei 
manövrieren. Aber behalten Sie Nerven, wenn 
einmal ein Adler im Sturzflug Ihre Taube 
krallt und den sich blutig färbenden una 
schreienden Vogel in die Tiefe reißt. 


Achten Sie auch auf andere Hindernisse! Ihre 
ermatteten Tauben könnten zerschmettert wer- 
den. Günstig ist es natürlich, wenn Sie auf 
dem Flug etwas Energie nachtanken. Glück- 
lich gelandet wendet die Taube ihren Kopf 
und hüpft freudig in den Schlag. Dort reihen 
sich Ihre geretteten Tauben auf, so daß Sie 
immer einen guten Überblick haben. 


Instruktionen, Score-Anzeige und High-Score 
Tabelle gehören ebenfalls zum Spiel. Beach- 
tenswert sind die großen bewegten Figuren 
(Adler bestehen aus 3 (!) Zeichen). 


Nachdem Sie das gesamte Listing eingegeben 
und auf seine Richtigkeit überprüft haben, 
fügen Sie folgende Zeile ein: 


10 CALL &BBO03 


Hierdurch wird die Steuerung der Taube er- 
leichtert, weil der Tastaturbuffer gelöscht 
wird. Leider sperrt dieser Befehl auch die 
Break-Funktion. Möchten Sie das Spiel dann 
noch einmal listen, so müssen Sie abwarten, 
bis 24 Tauben geflogen sind und die anschlie- 
ßBende Frage nach einem neuen Spiel mit 
"nein" beantworten. 


Punkte: 


q$ 
t$ 
y$ 
a$ 
ye 
ts 


hg 


:rıau "liste für "Sturzflug" 


Taube sitzend 
Taube fliegend, Flügel oben 
Taube fliegend, Flügel unten 
Adler 
Höhe Einflugloch des Taubenschlages 
Anzahl der Tauben, die den Schlag 
erreichen 
() Farbe des Hintergrundes 


live Anzahl der noch zu rettenden Tauben 
x,y Position der Taube 


XS 


Position des "Schatzes" 


d,v Positionen der Adler 
s$() Namen in der High-Score Tabelle 


s() Punktezahlen in der High-Score Tabelle 
sc Punktezahl des Spielers 
(Butterwege) 


r 


LISTING_ SPIELE 
52 8.000.066 2.00.00 00.0.0090. 905900 
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| (24) ,s(5),s$(5) 
ı2 60SUB 80 
ı3 WINDOW #0,1,38,1,24 


ı 3 WINDOW #1,1,40,25,25:PAPER #1,2:CLS #155 


Sturzflug 


ıT MODE 1:PAPER O:CLEAR:DEFINT a-z:DIM hgSi1 


WINDOW #2,39,40,1,24:PAPER #2,3:CL5S #2EN 


IF ts=24 THEN 62 ELSE GOTD 9 


S2 REM 

53 REM <<< Taube fliegt gegen Wand >> 

54 REM 
SDUND 1,400,7,12,0,0,21:LOCATE 35,4y:P 
1:PRINT ” ” CHR$SC238):60T0 57 


6 REM 

7 REM <<< Hauptprogramm >>> 

B REM 

I9 live=live-1:CALL &BD13:60SUB 157 


I1l IF ts<>0 THEN IF ts/24=INTCts/24) THEPRINT q$; 


56 SOUND 1,400,7,12,0,0,21:LOCATE 
EN 1:PRINT ” ” CHRSC238):G0TO 58 
57 LOCATE #1,30,24:PEN #1,1:PRINT #1, ”au 


12,y:P 


:LOCATE 37 ,n-1:PRINT ” ”;:FDOR 


IN 62 ! 
112 c$=INKEYS$ 


b=1 TO 15: 


SB LOCATE 


NEXT:NEXT:GOTO 3 
#1,30,24:PEN #1,1: PRINT #1, ”au 


I 
l 
j 
\ 
weh”: FOR n=y+1 TO 24:LOCATE 37,n:PEN 1: 
j 
| 
) 
| 
| 
| 


13 IF C$S=CHRSC240) THEN 39 weh”: FOR n=y+1 TOD 24:LOCATE 14,n:PEN 1: 
‚14 IF CS=CHRSC241) THEN 4O PRINT q$;:LOCATE 14,n-1:PRINT ” ”;:FOR 
15 IF y<1 THEN y=1 b=1 TO 30:NEXT:NEXT:GOTO 9 

I16 IF y>24 THEN y=24 59 REM 

117 IF y=11 THEN IF x>13 THEN IF x<25 THE6O REM <<< Score Aufrechnung >>> 

IN y=10 61 REM | 
ı18 IF x/2=INTCx/2) THEN 24 62 sc=sc+500:CLS:LOCATE 5,10: PRINT”Herzlı 
ı19 PEN 1:LOCATE x,y:PRINT t$ ichen Gl[ckwunsch !”:PRINT:PRINT”Sie hab; 
20 ENV 5,100,1,10:SDUND 1,0,3,5,5,0,3 en 24 Tauben gerettet !”:PRINT:PRINT”Sie, 
@1 LOCATE 17,d:PEN 2:PRINT a$:LOCATE 17, bekommen 500 Punkte Bonus und 24 neue | 
jdt1:PRINT ” Tauben !”:PRINT:PRINT"N ur weite 
22 LOCATE 27,v:PEN 2:PRINT a$:LOCATE 27, r so !”:FOR n-1 TO 8000:NEXT 
Iv+2:PRINT ” 63 sh=-24:CLS#2:ts=0:live=24:G0TD 9 

123 LOCATE 11,v:PEN 2:PRINT a$:LOCATE 11,64 REM 

Iv-2:PRINT ” 


|24 PEN 1:LOCATE x,y:PRINT y$ 
25 ENU 5,100,1,10:SOUND 1,0,5,5,5,0,3 
28 LOCATE 


za EIN ”.LOCATE 27,n:PEN 2:PRINT a$:LOCATE 
27 LOCATE 27,v+2:PEN 2:PRINT a$:LOCATE 228,n+1:PEN 3:PRINT q$:FOR b=1 TO 100:NEX 
I7,v:PRINT ” . T:NEXT:GOTO 9 

I2EB LOCATE 11,v-2:PRINT a$8:LOCATE 11,v:PR69g GDSUB 75 

IINT ” % 70 FOR n=y-1 TO 1 STEP -1:LOCATE 17,n+2: 
ıe93 x=x+1 PRINT ” ”:LOCATE 17,n:PEN 2:PRINT a$: 
ı30 IF Cy=v OR y=v+1 DR y=v+2) THEN IF x= LOCATE 17,n+1:PEN 3:PRINT ” ”+q$:FOR b=1 


‚26 THEN GOTO 67 

2 IF y=-v-2 DR y=v-1 THEN IF x=11 THEN 
oOTD 71 

I32 ıF Cy=-d OR y=d+1) THEN IF x=17 THEN 
IOTO 69 


17,d+1:PEN 2:PRINT a$:LOCATE 168 


671 GDSUB 75 


GINT ” 


65 REM <<< Adler greift Taube >>> 

66 REM 

67 GDSUB 75 

FOR n=y+1 TOD 23:LOCATE 26,n-1:PRINT ” 


TO 100:NEXT:NEXT:GDTO 9 


72 FOR n=-y-1 TD 1 STEP -1:LOCATE 11,n:PR 
”:LOCATE 11,n:PEN 2:PRINT a$:LD 
CATE 11,n+t1:PEN 3:PRINT ” ”;q$:LDCATE 12! 


ı33 IF y=v THEN IF x=11 THEN 73 ‚n+2:PRINT ” ”:FOR b=1 TO 100:NEXT:NEX! 
34 IF y>=11 THEN IF x=12 GOTO 56 T:G0ID 9 ) 
35 IF y=ye THEN IF x=35 THEN GOTO 44 73 GOSUB 75 
136 IF x>=35 THEN 55 74 FOR n=y-1 TO 23:LOCATE 11,n-1:PRINT ” 
137 IF y=2 AND x+2=xs THEN FOR n=100 TO O ”.LDCATE 11,n:PEN 2:PRINT a$:LOCATE 1 
| STEP =1:SOUND 1,n,1:NEXT:sc=sc+5:G0T0 32,n+1:PEN 3:PRINT q$:FOR b=1 TO 100:NEXT| 
8 :NEXT:GOTO 9 | 
138 G0TO ı2 75 FOR n=30 TO 20 STEP -1:SDUND 1,n,1,7: 
139 LOCATE x,y: PRINT ” ”.y=y-1:G0TO 1NEXT:ENV 1,100,3,1:S0UND 1,300,100,1,1,1! 
13 ‚5: RETURN | 
„40 LOCATE x,y: PRINT ” ”:y=y+1:GOTD 176 REM RETURN | 
5 77 REM | 
Iy1 REM i 78 REM <<< Initialisierung >>> 

ı42 REM <Taube erreicht Taubenschlag?> 79 REM 
33 REM 80 SYMBOL AFTER 90:5YMBOL 91,102,0,102,11 


44 LOCATE 35,ye:PEN 1:PRINT ” 
13J+CHRSC242): FOR n=1 ID 500:NEXT:LOCATE 
I37,ye: PRINT q$:FOR n=1 TOD 500:NEXT 

+3 LOCATE 35,ye: PRINT” & 

46 sc=-sc+t10:ts=ts+t1l:sh=sh-1 

147 ENU 1,100,2,2:ENT 1,100,-2,2:5DUND 1, 
I284,200,1,1,1 

+8 IF sh<=ye THEN 50 


49 FOR n=ye IO sh:LOCATE #2,38,n:PRINT #87 


l2,q$8; : LOCATE #2,37,n:PRINT #2,” 
jb=1 ID 10:NEXT:NEXT 


”;:FOR 


j>0 LOCATE #2,39, 24: PRINT#2,CHR$C243); CHR 90 


re )a SER n=1 TO 500:NEXT:CLS: INK O,hg 
(ts) 


”+CHRSC24 02,102,102,62,0 


81 SYMBOL 231,6,15,30,56,48,112,396,192 
82 SYMBOL 232,24,189,219,189,153,203,66, 
66 

83 SYMBOL 233,96,240,120,28,12,14,6,3 

84 SYMBOL 242,0,0,0,0,0,255,254,240 

85 SYMBOL 243,28,116,28,30,63,127,127,63 
86 SYMBOL 244,4,14,31,31,63,63,255,31 


SYMBOL 
88 SYMBOL 246,28,23,28,30,63,127,127,63 
83 SYMBOL 247,0,0,0,0,0,0,255,31 

SYMBOL 248,0,0,0,0,0,12,251,252 

91 RESTORE 92:FOR n=1 ID 24:READ hg(n):N 


| 

I 

| 

| 

| 

245,0,0,0,128,192,204,251,252 | 

| 

| 

| 

EXT: sh=24 ı 


©: Or: 10; 20: 10: 0 0:70.90" 920/20: 20.09.29: ©: 30% 9:99: 79.0: 


Sturzflug 


| 
ı3e DATA 13,14,12,2,3,1,4,5,10,11,13,14,1126 FOR t=1 TOD 150:NEXT:LOCATE a,22:PRIN 
2,.0,.3,1,459,10,11,.13, 1%, 12,2 T t$:FOR t=1 TO 150:NEXT:LOCATE a,22:PRI 
193 q$=CHR$SC246)I+CHRSC242) NT y$ 
t$="” ”+CHRSC244I+CHRSC24S) 127 WEND: RETURN 
yS5=” ”+CHRSC247)+CHRSC24B) 128 REM 
a$=CHR$SC231)I+CHR$C232I+CHRSC233) 123 REM <<< Spielende >>> 
FOR t=1 TO 5:s$Ct)="Gerald Butterwegg 130 REM 
:stt)=200-Ct*10):NEXT 131 MODE 1:PEN 1:INK O,2:PAPER 3:LOCATE | 
ENV 1,100,2,2:ENT 1,100,-2,2 8,5:PRINT’’Gratulation !”: PRINT, 
REM :PRINT:LOCATE 2,7: PRINT”Von 24 Tauben ha 
REM <<< Instruktionen >>> ben Sie”ts”gerettet.”:BORDER 1:FOR n=1 T! 
REM DO 5000:NEXT:PAPER O0:CLS | 
PEN 1:INK 1,26: INK 2,24:INK 3,6: Ink 132 LOCATE 10,2:PRINT”Ihre Punkte: ”;sc 
:BORDER 2:CLS 133 LOCATE 139,4 
LOCATE 13,2:PRINT CHR$C24);” STURZF134 IF sc?65 AND sc<=s(5) THEN PRINT” -U! 
”;CHR$C24):PEN 2:LOCATE 7,4:PRINT Cebung macht den Meister-”:PRINT:PRINT” 
IHRSC164); ” by Gerald Butterwegge”:PRINT Dies war eine gute Leistung ”:FOR t=1 TO] 
‚104 PEN 3:PRINT” Aufgabe dieses Spieles 7500:NEXT:GDTO 145 f 
ist es,”:PRINT” Ihre Tauben ”;:PEN 1:PR 135 IF sc<70 THEN FOR t=1 TO 5000:NEXT:G 
| ”.q$;” ”";q$;:PEN 3: PRINT” siche D0TO 146 | 
136 BORDER 9: PAPER 3:PEN 2: INK 2,24: PRIN 
‚105 PRINT” von links nach rechts in den” T” ==== SEHR’.GUT ===> 
:PRINT” Taubenschlag zu steuern.”:PRINT ”:PRINT” Dieses Ergebnis gehoert zu d 
106 PRINT” Beachten Sie jedoch die Gefah en f[nf Bitte Namen 
ren !!”:PRINT:PRINT eingeben: ”:n$=""”:CALL &BBO3 
107 PEN 2: PRINT” ”;CHRSC144);” Meiden Si 137 PEN 3: PAPER 1:LOCATE 1,10: PRINT” --- 
e die- Adler !!”:PRINT ”:LOCATE 1,12:PRINT” En 
108 PRINT” ”;CHRS$SC144);” Fliegen Sie nic de der Eingabe mit ”;CHRSCE4),” 1 ”;CH 
ht gegen das Haus !!”:PRINT R$C24):PRINT:PRINT” Fehler. korrigieren ml 
109 PRINT” ”";CHRS$SC144),;,” Landen Sie nur it ”;CHR$SC24),;,” O ”;CHRSC2Y) 
direkt im”:PRINT” Einflugloch !!” 138 c$=INKEYS: IF c$="”"THEN 138 | 
110 PEN 2:LOCATE 12,24: PRINT CHRSC24);” 139 IF c$="1” OR LENCN$)>20 THEN 141 ELS 
Taste dr[cken ”;CHR$C24):PEN 1 E IF c$="O”THEN n$="”":LOCATE 2,10: PRINT” 
111 FOR n=1 TO 17:READ x,y:SOUND 1,x,4:5 ”:GOTO 138 | 
OUND 2,x+1,y:SOUND 4,x-1,y:NEXT 140 n$=n$+c$:LOCATE 2,10:PRINT n$:G0TO ı! 
112 DATA 142,40,119,40,142,40,119,40,142 38 I 
‚40,134,40,159,40,134,40,159,40,142,40,1 141 IF sc?s(5)JTHEN IF sc<=s(4) THEN s(5) 
79,40,119,40,142,40,159,40,119,40,1,1,11 =sc:s$(5)=n$ >. 
9,100 142 IF sc?sc4) THEN s(5)=s(4):s$(l5)-s$CH, 
113 GOSUB 124 ):sl4)=-sc:s$l4)=n$ | 
114 BORDER 6: INK 0,3: INK 2,2: 1NK.I3,04 143 IF sc?s(C3) THEN s(4)J=85(3):s$(4)J=-s$(3 
115 PEN 1:CLS: LOCATE 13,0% PRINT CHRSCE4) ):sl3)=sc:s$(l3)=n$ 
;”  STURZFLUG ";CHRS(24) : LOCATE 7,4:PRI 144 IF sc?s(2) THEN s(3)=s(2):s$(3)=s$cal 
NT CHRS$C164);,” by Gerald Butterwegge”:FE J:s(2)=sc:s$(2)=n$ j 
N 3 145 IF sc?st1) THEN s(2)=s(1):s$(l2)=s$Cll 
116 LOCATE 10,5:PRINT”Die Steuerung”:PRI 3:st1)=sc:s$(1)=n$ | 
NT TABCSI; "erfolgt [ber die Cursor-Taste 146 INK 0,2:PAPER 0:CLS:INK 1,26: INK 2,8) 
ne ‚15:INK 3,24:PEN 3:LOCATE 27,6: PRINT” 
117 PAPER 2:PEN 3:LOCATE 18,8:PRINT ” RANGFOLGE HI-SCODRE” 
”:LOCATE 18,9:PRINT ” ”;CHRSC240);” ”:LO147 PEN 2:LOCATE 5,10:PRINT” 1 - ";ssc1)! 
CATE 18,10: PRINT” u :LOCATE 31,10:PRINT USING”####”;sC12: PEN 
118 LOCATE 18,12:PRINT ” ”:LOCATE 18,1 ı 
3:PRINT ” ";CHRSC2E41);” ”:LOCATE 18,14:P 148 LOCATE 5,12:PRINT” 2 - IS. 
RINT ” ”:PAPER O E 31,12:PRINT USING”####”;s(C2) j 
119 LOCATE 1,16:PRINT” Sie m[ssen 24 Tau 149 LOCATE 5,14:PRINT” 3 - ”;s$C3):LOCATI 
ben retten. Gelingt es Ihnen, so erhag 31,14: PRINT USING”####”;s(C3) N 
lten Sie einen Bonus von 500 Punkten u 150 LOCATE 5,16:PRINT” 4 - ”;s85C4) :LOCAT, 
nd 24 weitere Tauben.” E 31,16: PRINT USING”####”,;sC4) 
120 PRINT” Fliegt die Taube [ber die Fut 151 LOCATE 5,18:PRINT” 5 - ”.5$(5):LOCAT! 
terstelle >S5< , so gewinnen Sie 5 weiteg 31,18: PRINT USING”####”,s(5) | 
re Punkte.”; 152 LOCATE 5,24:PRINT”Ein neues Spiel (Jı 
121 PEN 2:LOCATE 12,24: PRINT CHRSC24);” N) ?” 4A 
Taste dr[cken ”;CHR$SC24):PEN 1 153 c$=UPPERSCINKEYS$) 
122 PEN 1:a-0:GDSUB 124:CLS 154 IF c$=”J” THEN sc=0:ts=0:sh=24: live=, 
123 MODE 1:1INK 1,26:PEN 1:INK 0,11: PAPER 30. MODE 1:INK 1,26:PEN 1:INK 0,11: PAPER 
0: INK 3,6: BORDER 9:CLS:INK 2,0:live=24: 9. INK 3,6: BORDER 9:CLS: INK 2,0:60I0 3 


RETURN 155 IF c$="N” THEN CLS:END 
124 WHILE INKEYS="” 156 G0TO 153 


125 a-atl: IF a-38 THEN a-1:LOCATE 38,22: 157 Ren 
PRINT” >” Restlisting S. 56 
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9.0.0.0.0.0.0.0.0.0 0.0.0.0: 


DISKETTENLAUFWERKE 


CUMANA 3" Diskettenlaufwerk für Schneider CPC 
464, 664 und 6128 zur Verwendung als zweites 
Laufwerk. 40 Spuren, einseitig, 250 KB (unformatiert), 
Zugriffszeit 55 ms, incl. Anschlußkabel und Netzteil 
(Bitte Computer-Type angeben) DM 399,- 


CUMANA 5,25" Diskettenlaufwerk für Schneider 
CPC 464, 664 und 6128 zur Verwendung als zweites 
Laufwerk. 40 Spuren, einseitig, 250 KB (unformatiert), 
Zugriffszeit 80.2 ms, incl. Anschlußkabel und Netzteil 
(Bitte Computer-Type angeben) DM 599,- 


CUMANA 


The best name in memory 


CUMANA 5,25" Diskettenlaufwerk für Schneider 
CPC 464, 664 und 6128 zur Verwendung als zweites 
Laufwerk. 40/80 Spuren, zweiseitig IMB (unformatiert) 
incl. Umrüstung, Anschlußkabel und Netzteil 


Für CPC 464 (Controler einschicken) DM 650,- 
“ Für 664/6128 (Console einschicken) DM 790,- 
Vortex F1/S DM 1190,- 
1 Laufwerk mit Controler, CP/M 2.2, VDOS und Handbuch 
Vortex F1/D DM 1690,- 
2 Laufwerke mit Controler, CP/M 2.2, VDOS u. Handbuch 
Vortex Fi DM 690,- 
Zweitlaufwerk mit Programm SPARA 
Vortex Al- DM 492,- 
Aufrüstsats F1/S auf F1/D 
Vortex Al- DM 540,- 


Aufrüstsats F1/Z auf F1/S) 


(7 deM cr. 
on Dach yenie \* 
13) 


Versand per Nachnahme oder Vorauskasse (Scheck) 
zzgl. Versandkosten 
bei Hardware DM 8,- bei Söftware DM 5,- 
TELEFONISCHE BESTELLUNGEN MÖGLICH 


Händleranfragen erwünscht 


GIGGE 
ELECTRONICS 


Abt. C5C - Schneefernerring 4 - 8500 Nürnberg 50 - 
HOTLINE bis 20 Uhr - Tel. 0911/84244 


VORTEX SPEICHERERWEITERUNGEN: 


(rechtzeitig bestellen - as kann su Lieferengpässen komriien) 


SP64 DM 267,- 
RAM-Erweiterung auf 64KB, ausbaubar auf 512KB 

SP128 DM 340,- 
RAM-Erweiterung auf 138KB, ausbaubar auf 512KB 

SP256 DM 470,- 
RAM-Erweiterung auf 256KB, ausbaubar auf 512KB 

SP320 DM 520,- 
RAM-Erweiterung auf 320KB, ausbaubar auf 512KB_ 

SP512 DM 581,- 


RAM-Erweiterung auf 512KB, nicht ausbaubar 


0.0.0.0.0.0.0.0.0.0.0.0.0.0,° 


TRANSMAT 464/664/6128 


Kassette DM 49,- 


TRANSMAT überträgt Ihre eigene Software von Kas- 
sette auf Diskette. Programme, deren Größe die 
Benutzung eines Diskettenlaufwerks nicht zulassen, 
werden von TRANSMAT automatisch umgeschrieben. 


C.A.D. 464 


Kassette DM 49,- 
Diskette DM 69,- 


Superprogramm zum Erstellen von Grafikbildern (z.B. 
für Adventures und Spiele) auf dem CPC mit den 
Grafikbefehlen: 


BLOCK BOX 
CIRCLE 12223 
CHANGE COLOR CHANGE MODE 
CHARACTER COLOR 
CLEAR DISC 

GOTO HELP 
INVERSE LINE 

LOAD MODE 
RASTER PAINT/FILL 
SAVE SPRAY 
ZOOM 


C.A.D. zeichnet Kreise, Blöcke, Linien, Rahmen, Rau- 
ten, Dreiecke und Vielecke. Buchstaben können einge- 
fügt, Bilder invertiert und Objekte blitzschnell farbig 
ausgefüllt werden. Bildpositionen sind speicherbar - an 
diese kann jederzeit zurückgesprungen werden. C.A.D. 
kann Grafikbilder auf und von Kassette oder Diskette 
speichern und laden. Das Hilfsmenü dient der schnellen 
Handhabung. Lieferung mit deutscher Anleitung und 
Demobild. 


3-D VOICE CHESS 464/664/6128 


Kassette DM 59,- 


3-D VOICE CHESS ist ein spechendes Schachpro- 
gramm, daß das Spielfeld und die Figuren 3- 
dimensional darstellt (siehe Bild 1). Das dreidimensio- 
nale Schachbrett kann gedreht werden. Somit ist eine 
Seitenansicht des Spiels möglich. 3-D VOICE CHESS 
verfügt über 7 Schwierigkeitsstufen und kann gegen 
sich selbst spielen. 


Einzelne Figuren können vom Brett entfernt oder 
hinzugestellt werden. Außerdem kann das Programm 
auch Ratschläge für den nächsten Zug ‚geben. 3-D 
VOICE CHESS kopiert sich- wenn gewünscht - von 
selbst auf Diskette. 


Versand per Nachnahme oder Vorauskasse (Scheck) 
zzgl. Versandkosten 
bei Hardware DM 8,- bei Software DM 5,- 
TELEFONISCHE BESTELLUNGEN MÖGLICH 


Händleranfragen erwünscht 


GIGGE 
LECTRONICS 


Abt. C5C - Schneefernerring 4 - 8500 Nürnberg 50 - 
HOTLINE bis 20 Uhr - Tel. 0911/84244 


0.0.0.0.0.0.0.0 0.0.0 0.0.0. 


POWER-BASIC 464 


Kassette DM 49,- 
Diskette DM 69,- 


die Basicerweiterung für den CPC mit 47 neuen Basic- 
Befehlen: 


BOX BLOCK TURBO SET 
RSET HCoPY INV MFILL 
MCoPY MCHANGE FILL CIRCLE 
PAINT ACCESS SMODE SIZE 
RON ROFF RINK RBORDER 
RMODE CHAR HELP MATRIX 
GPEN LINE FRAME DOKE 
LINE GET CAT DISPRO 
LZRY SCREEN MAP NOESC 


und weitere 


POWER-BASIC ermöglicht die Programmierung von 
SPRITES (=bewegliche Felder, zur Darstellung von 
Figuren bei Spielen) in beliebiger Größe. POWER- 
BASIC hat neue Graphik-Befehle und druckt 
Bildschirmjnhalte aus. Beliebig große Schriften sind 
darstellbar und Figuren lassen sich ausmalen. Mit dem 
Befehl TURBO laden Sie Ihre Programme bis zu 4x 
schneller. 


Darstellung von 27 Farben 
GLEICHZEITIG ! 


POWER-BASIC ermöglicht das gleichzeitige Darstellen 
aller 27 Farben und aller 3 Modes. Deutsche 
Anleitung. 


TAPE MECHANIC 464 
Kassette DM 49,- 


TAPE MECHANIC ist ein Kopierprogramm zum Ana- 
Iysieren und Kopieren Ihrer eigenen Programme von 
Kassette zu Kassette. TAPE MECHANIC ermöglicht 
das stufenlose Einstellen der Baudrate und kann 
"LIST"-geschützte Porgramme listen. 


DISC MECHANIC 464/664/6128 


Diskette DM 69,- 


Disc Mechanic ist das Disketten-Utility Programm, das 
jeder Schneider Besitzer haben sollte. Disc Mechanic 
ermöglicht das Formatieren und Kopieren von Disket- 
ten bis zu 42 Tracks. Dabei werden neue Disketten- 
formate, die als Kopierschutz dienen, mitkopiert. Mit 
dem eingebauten Diskettenmonitor können Sie ihre 
Disketten "unter die Lupe nehmen" und Änderungen 
vornehmen. Löschen, Umbenennen sowie das Zurück- 
holen von bereits gelöschten Files ist extrem komfor- 
tabel. Belegte und nicht belegte Sectoren werden gra- 
phisch angezeigt. In den wichtigsten Funktionen ist ein 
Ausdruck des Bildschirms auf einen Drucker möglich. 
Disc Mechanic arbeitet auch mit zwei Laufwerken 
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Der Geschenk- Tip 
für den Computer-Fan 


Das komplette Sammelwerk in 10 Bänden 
je Band nur 54,- DM 


Band 1 bis 6 bereits lieferbar 


Ein Leser-Service des SCHNEIDERN-aktiv TEAMS 
COMPUTER-aktiv VERLAG - Postfach 1201 - 8540 Schwabach 


zuzüglich 5,- DM Porto und Verpackung. Der Versand erfolgt ausschließlich gegen Vorausscheck. 
Bestellen Sie direkt beim Verlag und geben Sie die gewünschten Bandnummern an. Bitte keine 
telefonischen Bestellungen. 


